| line |
true |
false |
branch |
|
15
|
1 |
1 |
$BOM eq substr($str, 0, length $BOM) ? : |
|
21
|
0 |
0 |
$class->check_bom($str) ? : |
|
28
|
0 |
0 |
$class->check_bom($str) ? : |
|
35
|
0 |
0 |
unless my $fh = 'IO::File'->new($file) |
|
40
|
0 |
0 |
unless $fh = 'IO::File'->new($file, 'w') |
|
48
|
0 |
0 |
unless my $fh = 'IO::File'->new($file) |
|
53
|
0 |
0 |
unless $fh = 'IO::File'->new($file, 'w') |
|
63
|
0 |
0 |
unless my $dh = 'IO::Dir'->new($dir) |
|
66
|
0 |
0 |
if $file eq '.' or $file eq '..' |
|
68
|
0 |
0 |
if (-e $path and -f $path) { } |
|
|
0 |
0 |
elsif (-e $path and -d $path and $recursive) { } |
|
84
|
0 |
0 |
unless my $dh = 'IO::Dir'->new($dir) |
|
87
|
0 |
0 |
if $file eq '.' or $file eq '..' |
|
89
|
0 |
0 |
if (-e $path and -f $path) { } |
|
|
0 |
0 |
elsif (-e $path and -d $path and $recursive) { } |