| line |
true |
false |
branch |
|
18
|
0 |
16 |
unless my $html = $param{'html'} |
|
19
|
0 |
16 |
unless my $max_length = $param{'length'} |
|
24
|
16 |
0 |
unless $is_utf8 |
|
25
|
1 |
15 |
if length $html <= $max_length |
|
34
|
17 |
26 |
if $forwarded_tags |
|
39
|
3 |
40 |
unless $page |
|
47
|
3 |
27 |
if ($find_end_tag) |
|
48
|
1 |
2 |
unless ($_is_empty_tag{$tagname}) |
|
54
|
4 |
23 |
if $_is_empty_tag{$tagname} |
|
55
|
8 |
19 |
if (length $page . $text > $max_length and not $find_end_tag) |
|
58
|
23 |
4 |
unless ($_is_empty_tag{$tagname}) |
|
62
|
5 |
22 |
if $tagname eq 'a' |
|
67
|
0 |
23 |
unless $last_tag and $$last_tag{'tagname'} eq $tagname |
|
71
|
5 |
18 |
if $find_end_tag eq $tagname |
|
72
|
9 |
14 |
if (length $page > $max_length and not $find_end_tag) |
|
80
|
4 |
57 |
if ($find_end_tag) |
|
90
|
0 |
3 |
unless my $full_re = $$tag{'full'} |
|
91
|
0 |
3 |
unless my $begin_re = $$tag{'begin'} |
|
92
|
0 |
3 |
unless my $end_re = $$tag{'end'} |
|
93
|
3 |
0 |
if (my($first) = $page =~ /($begin_re)$/) |
|
95
|
3 |
0 |
if (my($second) = $next =~ /^($end_re)/) |
|
97
|
2 |
1 |
if ($may_have_tag =~ /^$full_re$/) |
|
121
|
15 |
0 |
unless ($is_utf8) |