File Coverage

blib/lib/Git/Wrapper/Plus/Ref.pm
Criterion Covered Total %
statement 25 27 92.5
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 36 39 92.3


line stmt bran cond sub pod time code
1 7     7   3069 use 5.008; # utf8
  7         34  
  7         332  
2 7     7   64 use strict;
  7         16  
  7         334  
3 7     7   45 use warnings;
  7         10  
  7         376  
4 7     7   1070 use utf8;
  7         186  
  7         108  
5              
6             package Git::Wrapper::Plus::Ref;
7             $Git::Wrapper::Plus::Ref::VERSION = '0.004010';
8             # ABSTRACT: An Abstract REF node
9              
10             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11              
12              
13              
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26              
27              
28              
29              
30              
31              
32              
33              
34              
35              
36 7     7   2326 use Moo qw( has );
  7         29621  
  7         123  
37              
38              
39              
40              
41              
42              
43              
44              
45              
46              
47              
48             has 'name' => ( is => ro =>, required => 1 );
49             has 'git' => ( is => ro =>, required => 1 );
50              
51              
52              
53              
54              
55              
56              
57              
58              
59              
60              
61              
62              
63             sub refname {
64 6     6 1 32 my ($self) = @_;
65 6         53 return $self->name;
66             }
67              
68              
69              
70              
71              
72              
73              
74             sub sha1 {
75 18     18 1 11971 my ($self) = @_;
76 18         217 my ($refname) = $self->refname;
77 18         341 my (@sha1s) = $self->git->rev_parse($refname);
78 18 50       339161 if ( scalar @sha1s > 1 ) {
79 0         0 require Carp;
80 0         0 return Carp::confess( q[Fatal: rev-parse ] . $refname . q[ returned multiple values] );
81             }
82 18         1138 return shift @sha1s;
83             }
84              
85 7     7   7045 no Moo;
  7         22  
  7         56  
86             1;
87              
88             __END__