| line |
true |
false |
branch |
|
99
|
0 |
3 |
unless $class->can('new') |
|
113
|
0 |
4 |
unless $class->can('new') |
|
125
|
101 |
289 |
unless @_ |
|
126
|
6 |
296 |
$_ eq '' ? : |
|
129
|
3 |
286 |
unless @$dirs |
|
148
|
0 |
662 |
unless @dirs |
|
179
|
0 |
149 |
unless @dirs |
|
198
|
0 |
196 |
if $rev |
|
201
|
1 |
195 |
if ($name =~ m[/]) |
|
227
|
0 |
2 |
if $rev |
|
246
|
0 |
145 |
if $rev |
|
249
|
4 |
141 |
if $self->is_cwd |
|
306
|
0 |
5 |
unless @want |
|
307
|
5 |
0 |
if (@want == 2) |
|
309
|
5 |
5 |
if $end < 0 |
|
311
|
0 |
5 |
if ($want[0] > $want[1]) |
|
362
|
0 |
0 |
ref $parts ? : |
|
|
0 |
0 |
defined $parts ? : |
|
421
|
1 |
12 |
if (@$dirs == 1 and $$dirs[0] eq '') |
|
425
|
4 |
8 |
unless @$dirs |
|
440
|
0 |
2 |
if $self->is_absolute |
|
456
|
0 |
13 |
unless defined $res |
|
478
|
0 |
15 |
unless opendir my $dh, "$self" |
|
506
|
2 |
7 |
-d $d ? : |
|
520
|
0 |
116 |
unless $csub |
|
523
|
11 |
93 |
-d $d->bare ? : |
|
545
|
0 |
3 |
if @_ % 2 |
|
549
|
0 |
3 |
if $opts{'all'} |
|
564
|
0 |
12 |
if @_ % 2 |
|
570
|
0 |
116 |
unless $dh |
|
572
|
122 |
6 |
if ($all) { } |
|
573
|
100 |
22 |
unless $n =~ /^\.{1,2}$/ |
|
576
|
4 |
2 |
unless $n =~ /^\./ |
|
629
|
0 |
12 |
unless $ans |
|
669
|
100 |
11 |
if (defined(my $path = &$reader())) { } |
|
670
|
8 |
92 |
if ($path->is_dir and not $path->l) |
|
676
|
1 |
99 |
if ($knob->pruned and not $path->l) |
|
679
|
21 |
79 |
if ($ok) |
|
682
|
79 |
0 |
if $loops < 50 |
|
686
|
4 |
7 |
unless @stack |
|
736
|
1 |
14 |
if (@_) { } |
|
738
|
0 |
1 |
unless CORE::mkdir $self, $mode |
|
741
|
1 |
13 |
unless CORE::mkdir $self |
|
774
|
1 |
8 |
unless CORE::rmdir $self |
|
790
|
0 |
8 |
if -e $dir |
|
802
|
0 |
8 |
unless $self->l |
|
803
|
0 |
8 |
unless CORE::unlink $self->bare |
|
823
|
0 |
9 |
unless CORE::symlink $self, $name |
|
838
|
0 |
1 |
unless defined $name |
|
856
|
0 |
4 |
unless CORE::chdir $self |
|
903
|
0 |
1 |
unless $$self{'return_to'} = shift @_ |
|
906
|
0 |
1 |
unless my $ret = (shift())->{'return_to'} |