| line |
true |
false |
branch |
|
28
|
0 |
0 |
if ref $data eq 'HASH' |
|
35
|
0 |
0 |
ref $$rec{$param} eq 'ARRAY' ? : |
|
49
|
0 |
0 |
if (defined $filehandle and $filehandle ne '') |
|
52
|
0 |
0 |
if /^=/ |
|
56
|
0 |
0 |
unless @lines |
|
57
|
0 |
0 |
"@lines" =~ /=/ ? : |
|
|
0 |
0 |
if $mode == 2 |
|
62
|
0 |
0 |
unless $key |
|
64
|
0 |
0 |
unless (exists $hash{$key}) |
|
68
|
0 |
0 |
if (ref $hash{$key} eq 'ARRAY') { } |
|
81
|
0 |
0 |
unless $thingy |
|
82
|
0 |
0 |
if UNIVERSAL::isa($thingy, 'GLOB') |
|
83
|
0 |
0 |
if UNIVERSAL::isa($thingy, 'FileHandle') |
|
84
|
0 |
0 |
unless (ref $thingy) |
|
87
|
0 |
0 |
$thingy =~ /[\':]/ ? : |
|
91
|
0 |
0 |
if defined fileno $tmp |