| line |
true |
false |
branch |
|
16
|
1 |
18 |
unless $tagstring and $tagstring =~ /\S/ |
|
38
|
2 |
32 |
defined $2 ? : |
|
39
|
3 |
31 |
defined $5 ? : |
|
40
|
0 |
34 |
if not defined $value and defined $3 |
|
41
|
11 |
23 |
if defined $value |
|
43
|
4 |
30 |
if (exists $tag{$tag}) |
|
44
|
2 |
2 |
if (defined $tag{$tag}) { } |
|
45
|
1 |
1 |
if not defined $value or $value ne $tag{$tag} |
|
48
|
1 |
1 |
if defined $value |
|
56
|
3 |
13 |
unless defined $pos and $pos == length $tagstring |
|
66
|
20 |
4 |
if $str =~ /\A$re\z/ |
|
75
|
0 |
13 |
unless defined $tags |
|
77
|
0 |
13 |
unless ref $tags and ref $tags eq 'HASH' || ref $tags eq 'ARRAY' |
|
80
|
3 |
10 |
if (ref $tags eq 'ARRAY') |
|
82
|
1 |
2 |
if grep {not defined $_;} @$tags |
|
90
|
6 |
12 |
defined $value ? : |