File Coverage

blib/lib/Git/Wrapper/Plus/Ref.pm
Criterion Covered Total %
statement 21 23 91.3
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 31 34 91.1


line stmt bran cond sub pod time code
1 7     7   1587 use 5.006; # our
  7         22  
2 7     7   37 use strict;
  7         15  
  7         202  
3 7     7   33 use warnings;
  7         20  
  7         729  
4              
5             package Git::Wrapper::Plus::Ref;
6              
7             our $VERSION = '0.004011';
8              
9             # ABSTRACT: An Abstract REF node
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
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              
37 7     7   560 use Moo qw( has );
  7         11439  
  7         62  
38              
39              
40              
41              
42              
43              
44              
45              
46              
47              
48              
49             has 'name' => ( is => ro =>, required => 1 );
50             has 'git' => ( is => ro =>, required => 1 );
51              
52              
53              
54              
55              
56              
57              
58              
59              
60              
61              
62              
63              
64             sub refname {
65 6     6 1 15 my ($self) = @_;
66 6         35 return $self->name;
67             }
68              
69              
70              
71              
72              
73              
74              
75             sub sha1 {
76 18     18 1 6884 my ($self) = @_;
77 18         78 my ($refname) = $self->refname;
78 18         253 my (@sha1s) = $self->git->rev_parse($refname);
79 18 50       75020 if ( scalar @sha1s > 1 ) {
80 0         0 require Carp;
81 0         0 return Carp::confess( q[Fatal: rev-parse ] . $refname . q[ returned multiple values] );
82             }
83 18         172 return shift @sha1s;
84             }
85              
86 7     7   4637 no Moo;
  7         19  
  7         40  
87             1;
88              
89             __END__