| line |
true |
false |
branch |
|
79
|
9 |
54 |
if $key eq 'header' |
|
81
|
18 |
36 |
if $ref eq 'HASH' |
|
82
|
0 |
36 |
if $ref eq 'ARRAY' |
|
98
|
0 |
45 |
length $2 ? : |
|
109
|
4 |
5 |
if $doc =~ s/^(.*)<\s*FORGE\s*>//is |
|
110
|
0 |
9 |
if $doc =~ s[<\s*/\s*FORGE\s*>(.*)$][]is |
|
115
|
19 |
4 |
if (length $string) |
|
118
|
10 |
9 |
if (@code || defined $pre and $string =~ /^([ \t\r\f]*\n)(.*)$/s) |
|
122
|
0 |
0 |
$1 eq '|' ? : |
|
123
|
14 |
5 |
if length $string |
|
125
|
9 |
14 |
unless @tokens |
|
127
|
0 |
14 |
unless exists $$self{'ops'}{$op} |
|
155
|
10 |
0 |
if $$self{'_header_sent'} or $$self{'_tie_obj'} |
|
156
|
0 |
0 |
if $$self{'buffer'} |
|
159
|
0 |
0 |
if $header |
|
167
|
0 |
9 |
unless $$self{'_tie_obj'} |
|
176
|
0 |
9 |
if $$self{'_tie_obj'} |
|
178
|
0 |
9 |
unless $$self{'_tie_obj'} = tie(*STDOUT, 'Text::Forge') |
|
185
|
0 |
9 |
unless $$self{'_tie_obj'} |
|
188
|
0 |
9 |
if $$self{'_old_tie'} |
|
200
|
0 |
9 |
unless $path =~ m[^/] |
|
201
|
9 |
0 |
unless $$self{'cache_module'}->is_cached($path) |
|
205
|
0 |
9 |
unless open $fh, $path |
|
207
|
0 |
9 |
unless close $fh |
|
210
|
0 |
9 |
if $Text::Forge::Debug |
|
217
|
0 |
9 |
if $warning or $@ |
|
223
|
0 |
9 |
wantarray ? : |
|
231
|
0 |
10 |
unless $path |
|
233
|
10 |
0 |
unless $path =~ m[^/] |
|
234
|
9 |
1 |
unless $$self{'cache_module'}->is_cached($path) |
|
248
|
0 |
9 |
if $$self{'_in_template'} |
|
266
|
0 |
0 |
if $$self{'_in_template'} |
|
276
|
0 |
0 |
unless ($$clone{'_header_sent'}) |
|
278
|
0 |
0 |
if $header |
|
288
|
0 |
0 |
unless @_ |
|
291
|
0 |
0 |
unless @_ |
|
294
|
0 |
0 |
unless ref $sub eq 'CODE' |
|
301
|
0 |
2 |
unless @_ |
|
302
|
0 |
2 |
if (ref $_[0] eq 'ARRAY') |
|
304
|
0 |
0 |
wantarray ? : |
|
313
|
4 |
0 |
if $header |
|
344
|
0 |
0 |
wantarray ? : |
|
355
|
0 |
0 |
wantarray ? : |
|
364
|
0 |
5 |
if $name eq 'DESTROY' |
|
365
|
0 |
5 |
unless exists $$self{'autoload'}{$name} |
|
366
|
0 |
5 |
@_ ? : |
|
395
|
0 |
14 |
if $$self{'_tie_obj'} and not $$self{'_in_template'} |