File Coverage

blib/lib/Git/Database/Backend/Cogit.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::Cogit;
2             $Git::Database::Backend::Cogit::VERSION = '0.012';
3 7     7   7386316 use Sub::Quote;
  7         67  
  7         1497  
4              
5 7     7   496 use Moo;
  7         46  
  7         213  
6 7     7   29446 use namespace::clean;
  7         41  
  7         203  
7              
8             with
9             'Git::Database::Role::PurePerlBackend',
10             ;
11              
12             has '+store' => (
13             isa => quote_sub( q{
14             die 'store is not a Cogit object'
15             if !eval { $_[0]->isa('Cogit') }
16             } ),
17             );
18              
19             # Git::Database::Role::PurePerlBackend
20 212     212   5414 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::Cogit - A Git::Database backend based on Cogit
39              
40             =head1 VERSION
41              
42             version 0.012
43              
44             =head1 SYNOPSIS
45              
46             # get a store
47             my $r = Cogit->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 L<Cogit>
55             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