| line |
true |
false |
branch |
|
80
|
15 |
59 |
if (not -e $filename) { } |
|
|
0 |
59 |
elsif (not -f _) { } |
|
|
0 |
59 |
elsif (-d _) { } |
|
86
|
15 |
59 |
if ($message) |
|
96
|
4 |
237 |
unless defined $file |
|
98
|
3 |
234 |
$file =~ m[/] ? : |
|
104
|
1 |
39 |
if $^O eq "darwin" |
|
105
|
1 |
38 |
if defined $ENV{'PRETEND_TO_BE_WIN32'} |
|
114
|
18 |
1 |
if defined $cannot_symlink |
|
125
|
0 |
1 |
if ($^O eq "MSWin32") |
|
132
|
0 |
0 |
if $major < 6 |
|
136
|
0 |
0 |
if ($major > 10 or $major == 10 and $minor > 0 || $build > 15063) |
|
137
|
0 |
0 |
if Test::File::Win32::IsDeveloperModeEnabled() |
|
142
|
0 |
0 |
unless $privs |
|
171
|
6 |
51 |
if $^O eq $os |
|
173
|
5 |
20 |
if $^O eq "MSWin32" |
|
176
|
1 |
19 |
if $@ |
|
179
|
1 |
18 |
if $@ |
|
196
|
10 |
1 |
if ($ok) { } |
|
217
|
4 |
1 |
if ($ok) { } |
|
240
|
1 |
3 |
unless _is_plain_file($filename) |
|
244
|
2 |
1 |
if ($ok) { } |
|
267
|
2 |
5 |
unless _is_plain_file($filename) |
|
271
|
3 |
2 |
if ($ok) { } |
|
295
|
1 |
3 |
unless _is_plain_file($filename) |
|
299
|
2 |
1 |
if ($ok) { } |
|
327
|
1 |
3 |
unless _is_plain_file($filename) |
|
331
|
2 |
1 |
if ($ok) { } |
|
361
|
1 |
3 |
unless _is_plain_file($filename) |
|
365
|
2 |
1 |
if ($ok) { } |
|
399
|
0 |
9 |
unless -e $filename |
|
400
|
0 |
9 |
unless -f $filename |
|
401
|
0 |
9 |
unless open my $fh, "<", $filename |
|
416
|
4 |
0 |
unless shift() |
|
419
|
1 |
3 |
unless _is_plain_file($filename) |
|
421
|
1 |
2 |
unless (defined $expected and int $expected == $expected) |
|
430
|
0 |
2 |
if ($got eq -1) { } |
|
|
0 |
2 |
elsif ($got eq -3) { } |
|
|
0 |
2 |
elsif ($got == -2) { } |
|
|
1 |
1 |
elsif ($got == $expected) { } |
|
472
|
5 |
0 |
unless shift() |
|
475
|
1 |
4 |
unless _is_plain_file($filename) |
|
477
|
1 |
3 |
unless (defined $expected and int $expected == $expected) |
|
486
|
0 |
3 |
if ($got eq -1) { } |
|
|
0 |
3 |
elsif ($got eq -3) { } |
|
|
0 |
3 |
elsif ($got == -2) { } |
|
|
2 |
1 |
elsif ($got != $expected) { } |
|
529
|
8 |
0 |
unless shift() |
|
531
|
3 |
5 |
unless _is_plain_file($filename) |
|
534
|
1 |
8 |
unless (defined $$ref and int $$ref == $$ref) |
|
544
|
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) { } |
|
685
|
20 |
14 |
if (ref $patterns eq 'ARRAY') { } |
|
698
|
4 |
30 |
unless _is_plain_file($filename) |
|
700
|
0 |
30 |
unless (-r $filename) |
|
708
|
0 |
30 |
unless (open FH, $filename) |
|
713
|
20 |
10 |
if (defined $encoding) |
|
740
|
2 |
0 |
if ($ok) { } |
|
762
|
0 |
0 |
if ($ok) { } |
|
795
|
3 |
0 |
if ($ok) { } |
|
828
|
0 |
0 |
if ($ok) { } |
|
848
|
1 |
3 |
if (_win32()) |
|
858
|
2 |
1 |
if ($ok) { } |
|
878
|
1 |
3 |
if (_win32()) |
|
888
|
2 |
1 |
if ($ok) { } |
|
910
|
1 |
5 |
if (_win32()) |
|
922
|
4 |
1 |
if ($ok) { } |
|
944
|
1 |
5 |
if (_win32()) |
|
956
|
4 |
1 |
if ($ok) { } |
|
979
|
0 |
4 |
if (_win32()) |
|
990
|
4 |
0 |
$present ? : |
|
993
|
2 |
2 |
if ($ok) { } |
|
1017
|
0 |
3 |
if (_win32()) |
|
1028
|
3 |
0 |
$present ? : |
|
1031
|
2 |
1 |
if ($ok) { } |
|
1050
|
1 |
6 |
if (_no_symlinks_here()) |
|
1059
|
4 |
2 |
if (-l $file) { } |
|
1077
|
0 |
0 |
if (_no_symlinks_here()) |
|
1086
|
0 |
0 |
unless (-e $file) |
|
1091
|
0 |
0 |
if (not -l $file) { } |
|
1110
|
1 |
5 |
if (_no_symlinks_here()) |
|
1121
|
1 |
4 |
unless (-l $file) |
|
1127
|
1 |
3 |
unless (-e $dest) |
|
1133
|
1 |
2 |
unless ($dest eq $actual) |
|
1155
|
1 |
4 |
if (_no_symlinks_here()) |
|
1165
|
1 |
3 |
unless (-l $file) |
|
1170
|
2 |
1 |
if (-e $dest) |
|
1188
|
1 |
3 |
if (_no_symlinks_here()) |
|
1198
|
1 |
2 |
unless (-l $file) |
|
1206
|
0 |
2 |
unless (defined $actual_dest) |
|
1208
|
0 |
0 |
if defined $link_error |
|
1212
|
1 |
1 |
if ($dest eq $actual_dest) { } |
|
1231
|
0 |
0 |
if (_no_symlinks_here()) |
|
1239
|
0 |
0 |
defined $link ? : |
|
1243
|
0 |
0 |
if (defined $link_abs and defined $to_abs and $link_abs eq $to_abs) { } |
|
1257
|
0 |
0 |
if $link_err |
|
1274
|
1 |
3 |
unless (-e $filename) |
|
1281
|
2 |
1 |
if ($ok) { } |
|
1304
|
1 |
3 |
unless (-d $dirname) |
|
1311
|
2 |
1 |
if ($ok) { } |
|
1337
|
1 |
2 |
unless ($actual == $count) |
|
1362
|
1 |
2 |
unless ($actual > $count) |
|
1388
|
1 |
2 |
unless ($actual < $count) |
|
1405
|
3 |
19 |
if (_obviously_non_multi_user()) |
|
1415
|
1 |
18 |
unless (defined $filename) |
|
1420
|
1 |
17 |
unless (-e $filename) |
|
1444
|
0 |
4 |
if defined $err and $err eq "skip" |
|
1445
|
0 |
4 |
if defined $err |
|
1448
|
1 |
3 |
unless (defined $owner_uid) |
|
1455
|
0 |
3 |
unless (defined $file_uid) |
|
1460
|
2 |
1 |
if $file_uid == $owner_uid |
|
1463
|
0 |
1 |
unless (defined $real_owner) |
|
1489
|
0 |
4 |
if defined $err and $err eq "skip" |
|
1490
|
0 |
4 |
if defined $err |
|
1493
|
1 |
3 |
unless (defined $owner_uid) |
|
1500
|
2 |
1 |
if $file_uid != $owner_uid |
|
1523
|
0 |
5 |
if defined $err and $err eq "skip" |
|
1524
|
0 |
5 |
if defined $err |
|
1527
|
1 |
4 |
unless (defined $group_gid) |
|
1534
|
0 |
4 |
unless (defined $file_gid) |
|
1539
|
3 |
1 |
if $file_gid == $group_gid |
|
1542
|
0 |
1 |
unless (defined $real_group) |
|
1570
|
0 |
4 |
if defined $err and $err eq "skip" |
|
1571
|
0 |
4 |
if defined $err |
|
1576
|
0 |
4 |
unless (defined $file_gid) |
|
1581
|
3 |
1 |
if $file_gid != $group_gid |
|
1601
|
2 |
6 |
if $arg =~ /\A[0-9]+\z/ |
|
1611
|
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) { } |
|
1645
|
3 |
6 |
if $arg =~ /\A[0-9]+\z/ |
|
1655
|
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) { } |
|
1692
|
0 |
4 |
if $filetime == -1 |
|
1694
|
2 |
2 |
if $filetime + $within_secs > $time - 1 |
|
1714
|
0 |
3 |
if $filetime == -1 |
|
1716
|
2 |
1 |
if $filetime > $time |
|
1737
|
0 |
3 |
if $filetime == -1 |
|
1739
|
2 |
1 |
if $filetime < $time |
|
1760
|
1 |
11 |
unless (defined $filename) |
|
1765
|
1 |
10 |
unless (-e $filename) |
|
1772
|
0 |
10 |
unless ($filetime) |