| line |
true |
false |
branch |
|
68
|
12 |
10 |
if (-e $file) { }
|
|
80
|
1 |
0 |
if (-e -r $file) { }
|
|
92
|
1 |
0 |
if (-e -w $file) { }
|
|
104
|
1 |
1 |
if (-e -x $file) { }
|
|
116
|
2 |
1 |
if (-e -z $file) { }
|
|
129
|
1 |
3 |
unless (file_exists($file))
|
|
132
|
2 |
1 |
if ($file_size == $size) { }
|
|
144
|
1 |
0 |
if (-e -O $file) { }
|
|
156
|
1 |
0 |
if (-e -o $file) { }
|
|
168
|
1 |
1 |
if (-e -u $file) { }
|
|
180
|
1 |
1 |
if (-e -g $file) { }
|
|
192
|
1 |
1 |
if (-e -k $file) { }
|
|
204
|
1 |
1 |
if (-e -T $file) { }
|
|
216
|
1 |
1 |
if (-e -B $file) { }
|
|
228
|
2 |
1 |
if (-e -f $file) { }
|
|
240
|
1 |
1 |
if (-e -l $file) { }
|
|
252
|
1 |
1 |
if (-e -p $file) { }
|
|
264
|
1 |
1 |
if (-e -S $file) { }
|
|
276
|
0 |
1 |
if (-e -b $file) { }
|
|
288
|
1 |
1 |
if (-e -c $file) { }
|
|
300
|
3 |
2 |
if (-e -d $dir) { }
|
|
312
|
1 |
0 |
if (-e -d -r $dir) { }
|
|
324
|
9 |
1 |
if (-e -d -w $dir) { }
|
|
336
|
1 |
0 |
if (-e -d -x $dir) { }
|
|
350
|
3 |
8 |
substr($dir, -1, 1) eq '/' ? :
|
|
385
|
2 |
2 |
if ($date_format eq 'monthly') { }
|
|
386
|
1 |
1 |
$dir_format ? :
|
|
394
|
1 |
1 |
$dir_format ? :
|
|
422
|
1 |
1 |
unless wantarray
|
|
427
|
0 |
2 |
unless &Dev::Util::File::open(my $input, "<", $input_file)
|
|
432
|
1 |
4 |
if $line =~ /^$/u
|
|
433
|
1 |
3 |
if $line =~ /^#/u
|
|
438
|
1 |
1 |
wantarray ? :
|