| line |
true |
false |
branch |
|
81
|
0 |
0 |
if defined $val |
|
146
|
8 |
1 |
unless (defined $template) |
|
150
|
0 |
8 |
unless defined $template |
|
167
|
12 |
0 |
if ($text =~ s/^(\s*[^\s|]*\s?)//) { } |
|
181
|
0 |
8 |
if $debug |
|
199
|
0 |
14 |
unless defined $substr |
|
215
|
0 |
0 |
if $type == WORD() |
|
216
|
0 |
0 |
if $type == LITERAL() |
|
225
|
0 |
12 |
unless defined $text |
|
231
|
8 |
0 |
if $head ne '' |
|
232
|
1 |
7 |
if ($word =~ s/^`(.*)`$/$1/) { } |
|
238
|
11 |
1 |
if $tail ne '' |
|
264
|
19 |
8 |
if ($type == LITERAL()) { } |
|
|
0 |
8 |
elsif ($type != WORD()) { } |
|
270
|
1 |
7 |
unless defined $dval |
|
272
|
0 |
1 |
if not defined $dval and exists $data->{$val} || exists $$data{lc $val} |
|
273
|
1 |
7 |
if (not defined $dval) { } |
|
|
5 |
2 |
elsif (not $gotField and $dval eq '') { } |
|
285
|
0 |
2 |
if $val eq 'URL' and not $dval =~ /^[a-z]+:/ |