| line |
true |
false |
branch |
|
22
|
0 |
13 |
unless defined $document |
|
23
|
0 |
13 |
unless defined $regex |
|
27
|
12 |
1 |
if $document =~ /$regex/s |
|
54
|
0 |
225 |
unless ref $obj eq "HASH" |
|
56
|
105 |
120 |
if (exists $obj->{$key}) |
|
59
|
120 |
105 |
unless ref $old eq "ARRAY" |
|
61
|
0 |
105 |
if $DEBUG |
|
67
|
119 |
145 |
unless %$entry |
|
71
|
7 |
535 |
if (ref $var) { } |
|
72
|
7 |
0 |
if not exists $$entry{$$var} or @{$$entry{$$var};} |
|
75
|
533 |
2 |
if exists $entry->{$var} |
|
82
|
1 |
104 |
unless @$old = @new |
|
110
|
175 |
155 |
if (@_) |
|
111
|
0 |
131 |
if ref $val and $DEBUG |
|
118
|
175 |
0 |
if ($cur->{'pos'}{$num} ||= -1) != $-[$num] or ref $val and $$val eq "leave_loop" |
|
130
|
100 |
230 |
if (not ref $val) { } |
|
|
225 |
5 |
elsif ($$val eq 'leave_loop') { } |