| line |
true |
false |
branch |
|
22
|
0 |
0 |
if ref $data eq 'HASH' |
|
28
|
0 |
0 |
ref $$rec{$param} eq 'ARRAY' ? : |
|
40
|
0 |
0 |
unless @lines |
|
41
|
0 |
0 |
"@lines" =~ /=/ ? : |
|
46
|
0 |
0 |
unless @lines |
|
50
|
0 |
0 |
unless $key |
|
52
|
0 |
0 |
unless (exists $hash{$key}) |
|
56
|
0 |
0 |
if (ref $hash{$key} eq 'ARRAY') { } |
|
68
|
0 |
0 |
if (defined $filehandle and $filehandle ne '') |
|
71
|
0 |
0 |
if /^=/ |
|
82
|
0 |
0 |
unless $thingy |
|
83
|
0 |
0 |
if UNIVERSAL::isa($thingy, 'GLOB') |
|
84
|
0 |
0 |
if UNIVERSAL::isa($thingy, 'FileHandle') |
|
85
|
0 |
0 |
unless (ref $thingy) |
|
88
|
0 |
0 |
$thingy =~ /[\':]/ ? : |
|
89
|
0 |
0 |
if defined fileno $tmp |