| line |
true |
false |
branch |
|
48
|
10 |
0 |
unless $_ |
|
54
|
0 |
0 |
unless ($f =~ m[^/]) |
|
68
|
0 |
0 |
unless defined $host |
|
78
|
0 |
0 |
if ($_ eq '..') { } |
|
|
0 |
0 |
elsif ($_ ne '.') { } |
|
79
|
0 |
0 |
if ($dir =~ s[([^/]+)/$][]) { } |
|
80
|
0 |
0 |
if ($1 eq '..') |
|
110
|
0 |
0 |
if ($_ eq '..') { } |
|
121
|
0 |
0 |
@r == 1 ? : |
|
130
|
0 |
0 |
if copy($file, $dest_file) |
|
135
|
0 |
0 |
unless rename $file, $dest |
|
141
|
0 |
0 |
unless -s $file |
|
149
|
0 |
0 |
if $sstat[7] == $lstat[7] |
|
156
|
0 |
0 |
&$f($_) ? : |
|
167
|
0 |
0 |
@_ <= $nb ? : |
|
170
|
0 |
0 |
unless exists $a->{$k} |
|
|
0 |
0 |
unless $b |
|
171
|
0 |
0 |
unless $b |
|
175
|
0 |
6 |
if $e eq $_ |
|
176
|
0 |
0 |
open($F, '<', $_) ? : |
|
|
0 |
0 |
wantarray ? : |
|
177
|
0 |
0 |
open($F, '<:utf8', $_) ? : |
|
|
0 |
0 |
wantarray ? : |
|
178
|
0 |
0 |
unless open $F, '<', $_[0] |
|
190
|
0 |
0 |
unless open my $f, '>', "$file.new" |
|
191
|
0 |
0 |
unless print $f $content |
|
192
|
0 |
0 |
unless close $f |
|
194
|
0 |
0 |
if $o_backup_ext |
|
195
|
0 |
0 |
unless rename "$file.new", $file |
|
213
|
0 |
0 |
unless open my $F, '>>', $f |