| line |
true |
false |
branch |
|
87
|
13 |
1 |
if (my $f = $self->_clean_directories($$dir{'DIRS'}{$d})) { }
|
|
104
|
17 |
49 |
if ($entry->object->isa('Git::PurePerl::Object::Tree')) { }
|
|
140
|
9 |
7 |
if (@_ == 1 and not ref $_[0]) { }
|
|
167
|
10 |
31 |
unless (my $head = $self->branch_head)
|
|
183
|
1 |
59 |
if ref $path eq 'ARRAY'
|
|
196
|
0 |
1 |
unless my $head = $self->branch_head
|
|
202
|
0 |
1 |
unless my $file = $self->_find_file($commit->tree, $path)
|
|
213
|
0 |
1 |
unless my $f = $self->_find_file($commit->tree, file($path))
|
|
216
|
0 |
1 |
if $f->object->sha1 ne $latest_file_sha1
|
|
231
|
0 |
18 |
unless my $dir = $self->_cd_dir($path)
|
|
233
|
8 |
10 |
unless my $sha1 = $$dir{'FILES'}{$path->basename}
|
|
235
|
0 |
10 |
unless my $object = $self->git->get_object($sha1)
|
|
245
|
0 |
3 |
unless my $dir = $self->_cd_dir($path)
|
|
288
|
11 |
6 |
if ($$dir{'DIRS'}{$_}) { }
|
|
292
|
0 |
6 |
unless $create
|
|
334
|
2 |
22 |
unless ($self->_clean_directories)
|
|
373
|
18 |
24 |
if (my $part = shift @path)
|
|
374
|
0 |
18 |
unless my $entry = first(sub {
$_->filename eq $part;
}
, $tree->directory_entries)
|
|
379
|
0 |
18 |
unless ref $object eq 'Git::PurePerl::Object::Tree'
|
|
390
|
0 |
3 |
unless my $head = $self->branch_head
|
|
405
|
2 |
14 |
unless my $file = $self->_find_file($c->tree, file($path))
|
|
406
|
6 |
8 |
unless $sha1_seen{$file->object->sha1}++
|
|
422
|
0 |
2 |
if $regex and ref $regex ne 'Regexp'
|
|
425
|
0 |
2 |
unless my $head = $self->branch_head
|
|
444
|
1 |
3 |
if $regex and not $f =~ /$regex/
|