| line |
true |
false |
branch |
|
78
|
15 |
59 |
if (not -e $filename) { }
|
|
|
0 |
59 |
elsif (not -f _) { }
|
|
|
0 |
59 |
elsif (-d _) { }
|
|
84
|
15 |
59 |
if ($message)
|
|
94
|
4 |
237 |
unless defined $file
|
|
96
|
3 |
234 |
$file =~ m[/] ? :
|
|
102
|
1 |
39 |
if $^O eq "darwin"
|
|
103
|
1 |
38 |
if defined $ENV{'PRETEND_TO_BE_WIN32'}
|
|
112
|
18 |
1 |
if defined $cannot_symlink
|
|
123
|
0 |
1 |
if ($^O eq "MSWin32")
|
|
130
|
0 |
0 |
if $major < 6
|
|
134
|
0 |
0 |
if ($major > 10 or $major == 10 and $minor > 0 || $build > 15063)
|
|
135
|
0 |
0 |
if Test::File::Win32::IsDeveloperModeEnabled()
|
|
140
|
0 |
0 |
unless $privs
|
|
169
|
6 |
51 |
if $^O eq $os
|
|
171
|
5 |
20 |
if $^O eq "MSWin32"
|
|
174
|
1 |
19 |
if $@
|
|
177
|
1 |
18 |
if $@
|
|
194
|
10 |
1 |
if ($ok) { }
|
|
215
|
4 |
1 |
if ($ok) { }
|
|
238
|
1 |
3 |
unless _is_plain_file($filename)
|
|
242
|
2 |
1 |
if ($ok) { }
|
|
265
|
2 |
5 |
unless _is_plain_file($filename)
|
|
269
|
3 |
2 |
if ($ok) { }
|
|
293
|
1 |
3 |
unless _is_plain_file($filename)
|
|
297
|
2 |
1 |
if ($ok) { }
|
|
325
|
1 |
3 |
unless _is_plain_file($filename)
|
|
329
|
2 |
1 |
if ($ok) { }
|
|
359
|
1 |
3 |
unless _is_plain_file($filename)
|
|
363
|
2 |
1 |
if ($ok) { }
|
|
397
|
0 |
9 |
unless -e $filename
|
|
398
|
0 |
9 |
unless -f $filename
|
|
399
|
0 |
9 |
unless open my $fh, "<", $filename
|
|
414
|
4 |
0 |
unless shift()
|
|
417
|
1 |
3 |
unless _is_plain_file($filename)
|
|
419
|
1 |
2 |
unless (defined $expected and int $expected == $expected)
|
|
428
|
0 |
2 |
if ($got eq -1) { }
|
|
|
0 |
2 |
elsif ($got eq -3) { }
|
|
|
0 |
2 |
elsif ($got == -2) { }
|
|
|
1 |
1 |
elsif ($got == $expected) { }
|
|
470
|
5 |
0 |
unless shift()
|
|
473
|
1 |
4 |
unless _is_plain_file($filename)
|
|
475
|
1 |
3 |
unless (defined $expected and int $expected == $expected)
|
|
484
|
0 |
3 |
if ($got eq -1) { }
|
|
|
0 |
3 |
elsif ($got eq -3) { }
|
|
|
0 |
3 |
elsif ($got == -2) { }
|
|
|
2 |
1 |
elsif ($got != $expected) { }
|
|
527
|
8 |
0 |
unless shift()
|
|
529
|
3 |
5 |
unless _is_plain_file($filename)
|
|
532
|
1 |
8 |
unless (defined $$ref and int $$ref == $$ref)
|
|
542
|
0 |
4 |
if ($got eq -1) { }
|
|
|
0 |
4 |
elsif ($got eq -3) { }
|
|
|
0 |
4 |
elsif ($got == -2) { }
|
|
|
3 |
1 |
elsif ($min <= $got and $got <= $max) { }
|
|
683
|
20 |
14 |
if (ref $patterns eq 'ARRAY') { }
|
|
696
|
4 |
30 |
unless _is_plain_file($filename)
|
|
698
|
0 |
30 |
unless (-r $filename)
|
|
706
|
0 |
30 |
unless (open FH, $filename)
|
|
711
|
20 |
10 |
if (defined $encoding)
|
|
738
|
2 |
0 |
if ($ok) { }
|
|
760
|
0 |
0 |
if ($ok) { }
|
|
793
|
3 |
0 |
if ($ok) { }
|
|
826
|
0 |
0 |
if ($ok) { }
|
|
846
|
1 |
3 |
if (_win32())
|
|
856
|
2 |
1 |
if ($ok) { }
|
|
876
|
1 |
3 |
if (_win32())
|
|
886
|
2 |
1 |
if ($ok) { }
|
|
908
|
1 |
5 |
if (_win32())
|
|
920
|
4 |
1 |
if ($ok) { }
|
|
942
|
1 |
5 |
if (_win32())
|
|
954
|
4 |
1 |
if ($ok) { }
|
|
977
|
0 |
4 |
if (_win32())
|
|
988
|
4 |
0 |
$present ? :
|
|
991
|
2 |
2 |
if ($ok) { }
|
|
1015
|
0 |
3 |
if (_win32())
|
|
1026
|
3 |
0 |
$present ? :
|
|
1029
|
2 |
1 |
if ($ok) { }
|
|
1048
|
1 |
6 |
if (_no_symlinks_here())
|
|
1057
|
4 |
2 |
if (-l $file) { }
|
|
1075
|
0 |
0 |
if (_no_symlinks_here())
|
|
1084
|
0 |
0 |
unless (-e $file)
|
|
1089
|
0 |
0 |
if (not -l $file) { }
|
|
1108
|
1 |
5 |
if (_no_symlinks_here())
|
|
1119
|
1 |
4 |
unless (-l $file)
|
|
1125
|
1 |
3 |
unless (-e $dest)
|
|
1131
|
1 |
2 |
unless ($dest eq $actual)
|
|
1153
|
1 |
4 |
if (_no_symlinks_here())
|
|
1163
|
1 |
3 |
unless (-l $file)
|
|
1168
|
2 |
1 |
if (-e $dest)
|
|
1186
|
1 |
3 |
if (_no_symlinks_here())
|
|
1196
|
1 |
2 |
unless (-l $file)
|
|
1204
|
0 |
2 |
unless (defined $actual_dest)
|
|
1206
|
0 |
0 |
if defined $link_error
|
|
1210
|
1 |
1 |
if ($dest eq $actual_dest) { }
|
|
1229
|
0 |
0 |
if (_no_symlinks_here())
|
|
1237
|
0 |
0 |
defined $link ? :
|
|
1241
|
0 |
0 |
if (defined $link_abs and defined $to_abs and $link_abs eq $to_abs) { }
|
|
1255
|
0 |
0 |
if $link_err
|
|
1272
|
1 |
3 |
unless (-e $filename)
|
|
1279
|
2 |
1 |
if ($ok) { }
|
|
1302
|
1 |
3 |
unless (-d $dirname)
|
|
1309
|
2 |
1 |
if ($ok) { }
|
|
1335
|
1 |
2 |
unless ($actual == $count)
|
|
1360
|
1 |
2 |
unless ($actual > $count)
|
|
1386
|
1 |
2 |
unless ($actual < $count)
|
|
1403
|
3 |
19 |
if (_obviously_non_multi_user())
|
|
1413
|
1 |
18 |
unless (defined $filename)
|
|
1418
|
1 |
17 |
unless (-e $filename)
|
|
1442
|
0 |
4 |
if defined $err and $err eq "skip"
|
|
1443
|
0 |
4 |
if defined $err
|
|
1446
|
1 |
3 |
unless (defined $owner_uid)
|
|
1453
|
0 |
3 |
unless (defined $file_uid)
|
|
1458
|
2 |
1 |
if $file_uid == $owner_uid
|
|
1461
|
0 |
1 |
unless (defined $real_owner)
|
|
1487
|
0 |
4 |
if defined $err and $err eq "skip"
|
|
1488
|
0 |
4 |
if defined $err
|
|
1491
|
1 |
3 |
unless (defined $owner_uid)
|
|
1498
|
2 |
1 |
if $file_uid != $owner_uid
|
|
1521
|
0 |
5 |
if defined $err and $err eq "skip"
|
|
1522
|
0 |
5 |
if defined $err
|
|
1525
|
1 |
4 |
unless (defined $group_gid)
|
|
1532
|
0 |
4 |
unless (defined $file_gid)
|
|
1537
|
3 |
1 |
if $file_gid == $group_gid
|
|
1540
|
0 |
1 |
unless (defined $real_group)
|
|
1568
|
0 |
4 |
if defined $err and $err eq "skip"
|
|
1569
|
0 |
4 |
if defined $err
|
|
1574
|
0 |
4 |
unless (defined $file_gid)
|
|
1579
|
3 |
1 |
if $file_gid != $group_gid
|
|
1599
|
2 |
6 |
if $arg =~ /\A[0-9]+\z/
|
|
1609
|
2 |
6 |
if (defined $from_uid and not defined $from_nam) { }
|
|
|
4 |
2 |
elsif (not defined $from_uid and defined $from_nam) { }
|
|
|
2 |
0 |
elsif (not defined $from_uid || defined $from_nam) { }
|
|
1643
|
3 |
6 |
if $arg =~ /\A[0-9]+\z/
|
|
1653
|
3 |
6 |
if (defined $from_gid and not defined $from_nam) { }
|
|
|
5 |
1 |
elsif (not defined $from_gid and defined $from_nam) { }
|
|
|
1 |
0 |
elsif (not defined $from_gid || defined $from_nam) { }
|
|
1690
|
0 |
4 |
if $filetime == -1
|
|
1692
|
2 |
2 |
if $filetime + $within_secs > $time - 1
|
|
1712
|
0 |
3 |
if $filetime == -1
|
|
1714
|
2 |
1 |
if $filetime > $time
|
|
1735
|
0 |
3 |
if $filetime == -1
|
|
1737
|
2 |
1 |
if $filetime < $time
|
|
1758
|
1 |
11 |
unless (defined $filename)
|
|
1763
|
1 |
10 |
unless (-e $filename)
|
|
1770
|
0 |
10 |
unless ($filetime)
|