File Coverage

blib/lib/Cogit/DirectoryEntry.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Cogit::DirectoryEntry;
2             $Cogit::DirectoryEntry::VERSION = '0.001001';
3 4     4   19 use Moo;
  4         6  
  4         18  
4 4     4   6778 use MooX::Types::MooseLike::Base 'Str', 'InstanceOf';
  4         8  
  4         240  
5 4     4   15 use namespace::clean;
  4         4  
  4         31  
6              
7             has mode => (
8             is => 'ro',
9             isa => Str,
10             required => 1,
11             );
12              
13             has filename => (
14             is => 'ro',
15             isa => Str,
16             required => 1,
17             );
18              
19             has sha1 => (
20             is => 'ro',
21             isa => Str,
22             required => 1,
23             );
24              
25             has git => (
26             is => 'rw',
27             isa => InstanceOf['Cogit'],
28             weak_ref => 1,
29             );
30              
31             sub object {
32 9     9 0 25726 my $self = shift;
33 9         223 return $self->git->get_object( $self->sha1 );
34             }
35              
36             1;
37              
38             __END__
39              
40             =pod
41              
42             =encoding UTF-8
43              
44             =head1 NAME
45              
46             Cogit::DirectoryEntry
47              
48             =head1 VERSION
49              
50             version 0.001001
51              
52             =head1 AUTHOR
53              
54             Arthur Axel "fREW" Schmidt <cogit@afoolishmanifesto.com>
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2017 by Arthur Axel "fREW" Schmidt.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut