Branch Coverage

blib/lib/OrePAN2/Injector.pm
Criterion Covered Total %
branch 16 44 36.3


line true false branch
22 0 16 @_ == 1 ? :
23 0 16 unless (exists $args{'directory'})
41 0 16 if ($source =~ /(?:^git(?:\+\w+)?:|\.git(?:\@.+)?$)/) { }
3 13 elsif ($source =~ m[\Ahttps?://]) { }
8 5 elsif (-f $source) { }
5 0 elsif ($source =~ /^[\w_][\w0-9:_]+$/) { }
112 1 7 if ref $self->{'author'} eq "CODE"
116 0 8 unless copy($file, $tarpath)
129 7 1 if (ref $self->{'author'} ne "CODE")
133 0 7 unless ($response->{'success'})
143 0 1 unless ($response->{'success'})
150 0 1 unless copy($tmpfile, $tarpath)
169 0 0 if ($branch)
175 0 0 if (ref $self->{'author'} eq "CODE")
182 0 0 unless (-f $metafname)
191 0 0 unless rename [glob("*")]->[0], "$name-$version"
205 0 0 if $author
211 0 0 if -f $tarpath
212 0 0 unless rename $tmp_tarpath, $tarpath
227 0 0 if $top and $top eq ".git"
228 0 0 unless -f $_
241 0 0 unless system(@_) == 0