| line |
true |
false |
branch |
|
189
|
1 |
1 |
unless (UNIVERSAL::isa($name, "Regexp")) |
|
219
|
0 |
7 |
unless $perm =~ /^(\+|-)?\d+\z/ |
|
220
|
1 |
6 |
if ($perm =~ s/^-//) { } |
|
|
3 |
3 |
elsif ($perm =~ s/^\+//) { } |
|
221
|
1 |
0 |
if $perm =~ /^0/ |
|
226
|
3 |
0 |
if $perm =~ /^0/ |
|
231
|
2 |
1 |
if $perm =~ /^0/ |
|
253
|
0 |
2 |
unless $type =~ /^[a-z]\z/i |
|
300
|
0 |
2 |
if $^O eq "MSWin32" |
|
302
|
2 |
0 |
$user =~ /^\d+\z/ ? : |
|
303
|
0 |
2 |
unless defined $uid |
|
320
|
0 |
2 |
if $^O eq "MSWin32" |
|
322
|
2 |
0 |
$group =~ /^\d+\z/ ? : |
|
323
|
0 |
2 |
unless defined $gid |
|
337
|
0 |
2 |
if $^O eq "MSWin32" |
|
350
|
0 |
2 |
if $^O eq "MSWin32" |
|
399
|
2 |
0 |
if ($n =~ s/c\z//) |
|
404
|
0 |
0 |
if ($n =~ s/k\z//) |
|
517
|
0 |
0 |
unless readline(STDIN) =~ /^y/i |
|
570
|
0 |
117 |
if UNIVERSAL::can($eval, "as_wanted") |
|
595
|
0 |
0 |
if $^O eq "MSWin32" |
|
634
|
0 |
0 |
if ($k eq 'wanted') { } |
|
642
|
0 |
0 |
unless defined $their_wanted |
|
662
|
0 |
85 |
unless open my $f, '<' . $_ |
|
664
|
1 |
4372 |
if /$pat/ |
|
733
|
170 |
170 |
if ($prefix eq '+') { } |
|
|
170 |
0 |
elsif ($prefix eq '-') { } |
|
757
|
0 |
0 |
unless %user_to_uid |
|
764
|
1 |
169 |
unless %uid_to_user |
|
785
|
0 |
0 |
unless %group_to_gid |
|
792
|
1 |
169 |
unless %gid_to_group |
|
814
|
0 |
0 |
unless $blocks |
|
822
|
0 |
0 |
if -u _ |
|
823
|
0 |
0 |
if -g _ |
|
824
|
0 |
0 |
if -k _ |
|
825
|
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 _) { } |
|
838
|
0 |
0 |
if (-M _ > 182.625) { } |