| line |
true |
false |
branch |
|
31
|
0 |
53 |
if $Zoidberg::Utils::AUTOLOAD eq 'DESTROY' |
|
35
|
23 |
53 |
unless grep {$Zoidberg::Utils::AUTOLOAD eq $_;} @{$loadable{$key};} |
|
38
|
0 |
53 |
if $@ |
|
42
|
0 |
53 |
unless $class |
|
52
|
0 |
1 |
unless exists $$Zoidberg::CURRENT{'settings'}{$key} |
|
54
|
1 |
0 |
wantarray && ref $ref eq 'ARRAY' ? : |
|
59
|
0 |
1 |
if $file =~ m[^/] |
|
63
|
5 |
1 |
unless -f $_ |
|
64
|
0 |
1 |
unless -r $_ |
|
73
|
0 |
65 |
unless -f $file |
|
76
|
0 |
65 |
if ($file =~ /^\w+$/) { } |
|
|
65 |
0 |
elsif ($file =~ /\.(pl)$/i) { } |
|
|
0 |
0 |
elsif ($file =~ /\.(pd)$/i) { } |
|
|
0 |
0 |
elsif ($file =~ /\.(yaml)$/i) { } |
|
82
|
0 |
0 |
unless eval 'require YAML' |
|
87
|
0 |
65 |
if $@ |
|
88
|
0 |
65 |
unless defined $ref |
|
97
|
0 |
0 |
unless open FILE, '<', $FILE |
|
102
|
0 |
0 |
if $@ |
|
116
|
0 |
432 |
if (defined $$ref{$k} and ref $v eq 'HASH') { } |
|
117
|
0 |
0 |
unless ref $$ref{$k} eq 'HASH' |