| line |
true |
false |
branch |
| 54 |
0 |
2 |
if $] >= 5.6 |
| 62 |
0 |
0 |
unless open $f, "$name" |
| 86 |
0 |
2 |
unless @_ == 2 |
| 90 |
0 |
2 |
if (UNIVERSAL::isa($a, 'Regexp')) |
| 98 |
2 |
0 |
if (defined $a and defined $b) { } |
| 101 |
2 |
0 |
if (not $ref_a and not $ref_b) { } |
| |
0 |
0 |
elsif ($ref_a eq 'ARRAY' and $ref_b eq 'ARRAY') { } |
| |
0 |
0 |
elsif ($ref_a eq 'HASH' and $ref_b eq 'HASH') { } |
| |
0 |
0 |
elsif ($ref_b eq 'Regexp') { } |
| 105 |
0 |
0 |
unless @$a == @$b |
| 107 |
0 |
0 |
unless t_is_equal $$a[$i], $$b[$i] |
| 111 |
0 |
0 |
unless keys %$a == keys %$b |
| 113 |
0 |
0 |
unless exists $$b{$key} |
| 114 |
0 |
0 |
unless t_is_equal $$a{$key}, $$b{$key} |
| 127 |
0 |
0 |
defined $a || defined $b ? : |
| 135 |
0 |
2 |
if @_ < 2 or @_ > 3 |
| 143 |
0 |
2 |
if (UNIVERSAL::isa($_[0], 'Regexp')) |
| 151 |
2 |
0 |
if @_ == 3 |
| 165 |
0 |
0 |
@_ == 1 ? : |
| 181 |
0 |
0 |
unless defined $file |
| 187 |
0 |
0 |
unless open $fh, ">$file" |
| 197 |
0 |
0 |
unless defined $file |
| 203 |
0 |
0 |
unless open $fh, ">$file" |
| 205 |
0 |
0 |
if @_ |
| 213 |
0 |
0 |
unless defined $file |
| 219 |
0 |
0 |
unless -e $file |
| 222 |
0 |
0 |
unless open $fh, ">>$file" |
| 223 |
0 |
0 |
if @_ |
| 267 |
0 |
0 |
if not defined $path or -e $path |
| 274 |
0 |
0 |
if -e $path |
| 281 |
0 |
0 |
unless defined $_[0] |
| 282 |
0 |
0 |
@_ > 1 ? : |
| 298 |
0 |
0 |
if ($@) |
| 299 |
0 |
0 |
if ($@ =~ /^The getpwnam function is unimplemented/) { } |
| 308 |
0 |
0 |
unless chown $uid, $gid, $file |
| 319 |
0 |
4 |
unless @_ == 2 |
| 322 |
0 |
4 |
unless defined $_[0] |
| 334 |
0 |
4 |
if (ref $_[0] eq 'ARRAY') { } |
| |
0 |
4 |
elsif (ref $_[0] eq 'HASH') { } |
| 360 |
0 |
0 |
@_ ? : |
| 361 |
0 |
0 |
$count == 1 ? : |
| 375 |
0 |
0 |
unless open $fh, ">>$log_file" |
| 404 |
0 |
0 |
unless file_name_is_absolute($f) |
| 415 |
0 |
0 |
unless file_name_is_absolute($f) |