| line |
true |
false |
branch |
|
186
|
1 |
1 |
unless (UNIVERSAL::isa($name, 'Regexp'))
|
|
216
|
0 |
7 |
unless $perm =~ /^(\+|-)?\d+\z/
|
|
217
|
1 |
6 |
if ($perm =~ s/^-//) { }
|
|
|
3 |
3 |
elsif ($perm =~ s/^\+//) { }
|
|
218
|
1 |
0 |
if $perm =~ /^0/
|
|
223
|
3 |
0 |
if $perm =~ /^0/
|
|
228
|
2 |
1 |
if $perm =~ /^0/
|
|
250
|
0 |
2 |
unless $type =~ /^[a-z]\z/i
|
|
297
|
2 |
0 |
$user =~ /^\d+\z/ ? :
|
|
298
|
0 |
2 |
unless defined $uid
|
|
315
|
2 |
0 |
$group =~ /^\d+\z/ ? :
|
|
316
|
0 |
2 |
unless defined $gid
|
|
390
|
2 |
0 |
if ($n =~ s/c\z//)
|
|
395
|
0 |
0 |
if ($n =~ s/k\z//)
|
|
508
|
0 |
0 |
unless <STDIN> =~ /^y/i
|
|
561
|
0 |
117 |
if UNIVERSAL::can($eval, 'as_wanted')
|
|
624
|
0 |
0 |
if ($k eq 'wanted') { }
|
|
632
|
0 |
0 |
unless defined $their_wanted
|
|
652
|
0 |
66 |
unless open my $f, "<$_"
|
|
654
|
1 |
4267 |
if /$pat/
|
|
722
|
132 |
132 |
if ($prefix eq '+') { }
|
|
|
132 |
0 |
elsif ($prefix eq '-') { }
|
|
746
|
0 |
0 |
unless %user_to_uid
|
|
753
|
1 |
131 |
unless %uid_to_user
|
|
774
|
0 |
0 |
unless %group_to_gid
|
|
781
|
1 |
131 |
unless %gid_to_group
|
|
803
|
0 |
0 |
unless $blocks
|
|
811
|
0 |
0 |
if -u _
|
|
812
|
0 |
0 |
if -g _
|
|
813
|
0 |
0 |
if -k _
|
|
814
|
0 |
0 |
if (-f _) { }
|
|
|
0 |
0 |
elsif (-d _) { }
|
|
|
0 |
0 |
elsif (-l _) { }
|
|
|
0 |
0 |
elsif (-c _) { }
|
|
|
0 |
0 |
elsif (-b _) { }
|
|
|
0 |
0 |
elsif (-p _) { }
|
|
|
0 |
0 |
elsif (-S _) { }
|
|
827
|
0 |
0 |
if (-M _ > 182.625) { }
|