File Coverage

blib/lib/Git/Database/Backend/Git/PurePerl.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package Git::Database::Backend::Git::PurePerl;
2             $Git::Database::Backend::Git::PurePerl::VERSION = '0.011';
3 7     7   170124 use Sub::Quote;
  7         81  
  7         1730  
4              
5 7     7   100 use Moo;
  7         56  
  7         264  
6 7     7   29991 use namespace::clean;
  7         56  
  7         199  
7              
8             with
9             'Git::Database::Role::PurePerlBackend',
10             ;
11              
12             has '+store' => (
13             isa => quote_sub( q{
14             die 'store is not a Git::PurePerl object'
15             if !eval { $_[0]->isa('Git::PurePerl') }
16             } ),
17             );
18              
19             # Git::Database::Role::PurePerlBackend
20 212     212   7503 sub _store_packs { [ $_[0]->store->packs ] }
21              
22             1;
23              
24             __END__
25              
26             =pod
27              
28             =for Pod::Coverage
29             hash_object
30             get_object_attributes
31             get_object_meta
32             all_digests
33             put_object
34             refs
35              
36             =head1 NAME
37              
38             Git::Database::Backend::Git::PurePerl - A Git::Database backend based on Git::PurePerl
39              
40             =head1 VERSION
41              
42             version 0.011
43              
44             =head1 SYNOPSIS
45              
46             # get a store
47             my $r = Git::PurePerl->new();
48              
49             # let Git::Database produce the backend
50             my $db = Git::Database->new( store => $r );
51              
52             =head1 DESCRIPTION
53              
54             This backend reads data from a Git repository using the
55             L<Git::PurePerl> Git wrapper.
56              
57             =head2 Git Database Roles
58              
59             This backend does the following roles
60             (check their documentation for a list of supported methods):
61             L<Git::Database::Role::Backend>,
62             L<Git::Database::Role::ObjectReader>,
63             L<Git::Database::Role::ObjectWriter>,
64             L<Git::Database::Role::RefReader>.
65              
66             =head1 AUTHOR
67              
68             Philippe Bruhat (BooK) <book@cpan.org>
69              
70             =head1 COPYRIGHT
71              
72             Copyright 2016 Philippe Bruhat (BooK), all rights reserved.
73              
74             =head1 LICENSE
75              
76             This program is free software; you can redistribute it and/or modify it
77             under the same terms as Perl itself.
78              
79             =cut