| line |
true |
false |
branch |
|
45
|
0 |
56 |
unless defined $name |
|
52
|
0 |
56 |
if $f eq q['] and $l eq q['] or $f eq '"' and $l eq '"' |
|
53
|
8 |
48 |
if $f eq '`' and $l eq '`' |
|
55
|
0 |
48 |
if ($lcn eq 'block.super' and $$param{'block.super'}) |
|
56
|
0 |
0 |
if &Scalar::Util::blessed($$param{'block.super'}) |
|
57
|
0 |
0 |
if ref $$param{'block.super'} eq 'CODE' |
|
59
|
4 |
44 |
if exists $$param{$name} |
|
60
|
11 |
33 |
if defined $keymap{$lcn} and exists $$param{$keymap{$lcn}} |
|
62
|
1 |
32 |
if (lc $k eq $lcn) |
|
70
|
8 |
24 |
if (exists $$param{$name}) { } |
|
|
24 |
0 |
elsif (defined $keymap{$lcn} and exists $$param{$keymap{$lcn}}) { } |
|
79
|
0 |
0 |
if (lc $k eq $lcn) |
|
86
|
0 |
0 |
unless ($found) |
|
87
|
0 |
0 |
unless $n =~ /[^\d\-\.\,\e]/ |
|
89
|
0 |
0 |
if (lc $k eq $lcn and $Dotiac::DTL::cycle{$k}[1]) |
|
90
|
0 |
0 |
if $Dotiac::DTL::included{"cycle_$k"}++ |
|
102
|
32 |
0 |
if ($r) |
|
103
|
32 |
0 |
if ($r eq 'HASH') { } |
|
|
0 |
0 |
elsif ($r eq 'ARRAY') { } |
|
104
|
28 |
4 |
if (not exists $$param{$name}) { } |
|
107
|
12 |
0 |
if (lc $k eq $lcn) |
|
113
|
12 |
16 |
if $found |
|
114
|
0 |
16 |
unless &Scalar::Util::blessed($param) |
|
122
|
0 |
0 |
if ($name =~ /\D/) { } |
|
123
|
0 |
0 |
unless &Scalar::Util::blessed($param) |
|
126
|
0 |
0 |
if (not exists $$param[$name]) { } |
|
127
|
0 |
0 |
unless &Scalar::Util::blessed($param) |
|
136
|
16 |
0 |
if (&Scalar::Util::blessed($param)) |
|
137
|
0 |
16 |
unless $Dotiac::DTL::ALLOW_METHOD_CALLS |
|
140
|
16 |
8 |
if (lc $k eq $lcn) |
|
146
|
0 |
16 |
if (not $found and $param->can('__getitem__')) |
|
148
|
0 |
0 |
unless eval {
do {
$x = $param->__getitem__($name);
1
}
} |
|
152
|
0 |
0 |
if (defined $x) |
|
157
|
0 |
16 |
unless $found |
|
160
|
0 |
0 |
unless $n =~ /[^\d\-\.\,\e]/ |
|
180
|
0 |
16 |
if $classes_seen{$class}++ |
|
186
|
32 |
0 |
wantarray ? : |
|
190
|
16 |
0 |
wantarray ? : |