| line |
true |
false |
branch |
|
22
|
0 |
12 |
unless defined $document |
|
23
|
0 |
12 |
unless defined $regex |
|
27
|
11 |
1 |
if $document =~ /$regex/s |
|
54
|
0 |
225 |
unless ref $obj eq 'HASH' |
|
55
|
105 |
120 |
if exists $$obj{$key} |
|
56
|
120 |
105 |
unless ref $old eq 'ARRAY' |
|
58
|
0 |
105 |
if $DEBUG |
|
64
|
119 |
145 |
unless %$entry |
|
68
|
7 |
535 |
if (ref $var) { } |
|
69
|
7 |
0 |
if not exists $$entry{$$var} or @{$$entry{$$var};} |
|
72
|
533 |
2 |
if exists $$entry{$var} |
|
79
|
1 |
104 |
unless @$old = @new |
|
107
|
175 |
148 |
if (@_) |
|
108
|
0 |
131 |
if ref $val and $DEBUG |
|
114
|
175 |
0 |
if ($$cur{'pos'}{$num} ||= -1) != $-[$num] or ref $val and $$val eq 'leave_loop' |
|
127
|
93 |
230 |
if (not ref $val) { } |
|
|
225 |
5 |
elsif ($$val eq 'leave_loop') { } |