| line |
true |
false |
branch |
|
41
|
3 |
132 |
if (my $ref = ref $src) { } |
|
|
12 |
120 |
elsif ($src =~ s/^:+//) { } |
|
|
1 |
119 |
elsif ($src) { } |
|
43
|
0 |
3 |
if $ref eq 'ARRAY' or $ref eq 'SCALAR' |
|
56
|
0 |
12 |
unless $src and $src ne '' |
|
70
|
0 |
12 |
if ($@) |
|
76
|
0 |
12 |
if $@ |
|
81
|
0 |
12 |
unless %h2 |
|
88
|
1 |
0 |
if (-f $src and -r _ and open M, "<$src") |
|
94
|
0 |
13 |
if /^\s*#/ or /^\s*$/ |
|
101
|
0 |
1 |
unless %hash |
|
104
|
119 |
16 |
unless (%hash) |
|
116
|
0 |
1093 |
unless ($key) |
|
117
|
0 |
0 |
if (ref $self) { } |
|
118
|
0 |
0 |
wantarray ? : |
|
127
|
0 |
1093 |
if @_ |
|
128
|
0 |
1093 |
unless (exists $self->{$key}) |
|
132
|
2 |
1091 |
if (ref $self->{$key} eq 'ARRAY') |