| line |
true |
false |
branch |
|
13
|
0 |
18 |
unless defined $input |
|
14
|
11 |
7 |
if ref $input |
|
17
|
0 |
7 |
unless length $input |
|
35
|
0 |
7 |
unless defined $postpos |
|
36
|
0 |
7 |
if $postpos != length $input |
|
42
|
0 |
14 |
if ($part =~ /\G ($sq) /cgmsux) { } |
|
|
0 |
14 |
elsif ($part =~ /\G ($dq) /cgmsux) { } |
|
|
14 |
0 |
elsif ($part =~ /\G ($ud) /cgmsux) { } |
|
64
|
0 |
11 |
unless defined $input |
|
65
|
0 |
11 |
unless ref $input |
|
70
|
0 |
11 |
if ref $x |
|
80
|
11 |
0 |
if ($traverse_methods) |
|
92
|
0 |
11 |
unless $ref |
|
99
|
0 |
11 |
if ($is_blessed and $strict_blessed) { } |
|
|
0 |
11 |
elsif ($method and $method_pre) { } |
|
|
0 |
11 |
elsif ($ref eq 'CODE') { } |
|
|
11 |
0 |
elsif ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($method and $traverse_methods) { } |
|
100
|
0 |
0 |
unless $method |
|
101
|
0 |
0 |
unless ($node) = $node->$method |
|
104
|
0 |
0 |
unless ($node) = $node->$method |
|
107
|
0 |
0 |
unless ($node) = &$node($key) |
|
110
|
0 |
11 |
unless exists $node->{$key} |
|
114
|
0 |
0 |
if not $key =~ /\A (?: 0 | [1-9] \d*) \z/msux or $key > $node->$#* |
|
119
|
0 |
0 |
unless ($node) = $node->$method |