| line |
true |
false |
branch |
|
42
|
0 |
0 |
if (ref $self) |
|
44
|
0 |
0 |
@_ ? : |
|
50
|
0 |
0 |
unless defined $self |
|
68
|
20 |
0 |
unless defined $$options{$_} |
|
92
|
1 |
3 |
unless @_ |
|
102
|
3 |
4 |
unless @_ |
|
116
|
0 |
2 |
if eof $fh |
|
119
|
0 |
2 |
if @_ |
|
123
|
0 |
9 |
if $$self{'DEBUG'} |
|
124
|
2 |
7 |
if (/^\}/) { } |
|
|
2 |
5 |
elsif (my($template_type, $url) = /^\@\s*(\S+)\s*\{\s*(\S+)\s*$/o) { } |
|
|
5 |
0 |
elsif (my($element, $rest_length, $value) = /^\s*([^{]+)\{(\d+)\}:\t(.*)$/so) { } |
|
127
|
0 |
2 |
if $$self{'DEBUG'} |
|
129
|
2 |
0 |
unless $seen_url |
|
132
|
0 |
5 |
if $value_length < 0 |
|
134
|
1 |
4 |
if ($rest_length > 0) |
|
137
|
0 |
1 |
if $read_length != $rest_length |
|
143
|
0 |
5 |
if ($$self{'SPLIT'} and (@v = split(/\n/, $value, 0)) > 1) { } |
|
154
|
0 |
2 |
if $$self{'DEBUG'} |
|
161
|
1 |
1 |
if @_ |
|
165
|
2 |
0 |
$url ? : |