File Coverage

blib/lib/Git/PurePerl/Object.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Git::PurePerl::Object;
2 4     4   60 use Moose;
  4         6  
  4         31  
3 4     4   19951 use MooseX::StrictConstructor;
  4         8  
  4         31  
4 4     4   8723 use Moose::Util::TypeConstraints;
  4         7  
  4         46  
5 4     4   5690 use namespace::autoclean;
  4         6  
  4         34  
6              
7             enum 'ObjectKind' => [qw(commit tree blob tag)];
8              
9             has 'kind' => ( is => 'ro', isa => 'ObjectKind', required => 1 );
10             has 'size' => ( is => 'ro', isa => 'Int', required => 1 );
11             has 'content' => ( is => 'rw', isa => 'Str', required => 1 );
12             has 'sha1' => ( is => 'ro', isa => 'Str', required => 1 );
13             has 'git' => ( is => 'ro', isa => 'Git::PurePerl', required => 1, weak_ref => 1 );
14              
15             __PACKAGE__->meta->make_immutable;
16              
17             1;