| line |
true |
false |
branch |
|
37
|
2 |
25 |
ref $_[0] ? : |
|
|
27 |
11 |
@_ == 1 ? : |
|
39
|
30 |
8 |
if (defined $$self{'template'}) |
|
42
|
36 |
2 |
unless (defined $$self{'package_name'}) |
|
46
|
32 |
26 |
unless ($c =~ /^Text::MicroTemplate\b/) |
|
57
|
0 |
0 |
if (@_) |
|
65
|
0 |
1 |
if (@_) |
|
75
|
54 |
3 |
unless (defined $$self{'code'}) |
|
88
|
53 |
1 |
ref $escape_func eq 'CODE' ? : |
|
102
|
46 |
126 |
if ($type ne 'text' and defined $last_text) |
|
105
|
29 |
17 |
$j == 0 && @lines >= 2 ? : |
|
115
|
22 |
150 |
if ($last_was_code and $type ne 'code') |
|
121
|
99 |
73 |
if ($type eq 'text') |
|
125
|
75 |
24 |
if $newline |
|
127
|
18 |
81 |
defined $last_text ? : |
|
131
|
30 |
142 |
if ($type eq 'code') |
|
137
|
43 |
129 |
if ($type eq 'expr') |
|
139
|
1 |
42 |
if ($newline and $value =~ /\n/) |
|
148
|
3 |
51 |
if ($last_was_code) |
|
152
|
35 |
19 |
if (defined $last_text) |
|
157
|
53 |
1 |
@lines ? : |
|
187
|
121 |
21 |
if (@lines) |
|
192
|
130 |
12 |
if ($state eq 'text') |
|
194
|
24 |
106 |
if ($line =~ /^$line_start\s+(.*)$/) |
|
199
|
7 |
99 |
if ($line =~ /^$line_start$expr_mark\s+(.+)$/) |
|
200
|
7 |
0 |
$newline ? : |
|
207
|
10 |
89 |
if ($line =~ /^$line_start$cmnt_mark/) |
|
214
|
0 |
101 |
if ($line =~ /(\\+)$/) { } |
|
217
|
0 |
0 |
if ($length == 1) |
|
221
|
0 |
0 |
if ($length >= 2) |
|
226
|
80 |
21 |
if $newline |
|
243
|
26 |
232 |
if ($token eq '') { } |
|
|
42 |
190 |
elsif ($token =~ /^$tag_end$/) { } |
|
|
6 |
184 |
elsif ($token =~ /^$tag_start$/) { } |
|
|
2 |
182 |
elsif ($token =~ /^$tag_start$cmnt_mark$/) { } |
|
|
36 |
146 |
elsif ($token =~ /^$tag_start$expr_mark$/) { } |
|
260
|
92 |
54 |
if ($state eq 'text') { } |
|
|
2 |
52 |
elsif ($state eq 'cmnt') { } |
|
|
10 |
42 |
elsif ($state eq 'cont') { } |
|
272
|
89 |
12 |
if ($state eq 'text') |
|
277
|
0 |
54 |
if @$tokens |
|
287
|
0 |
0 |
0 < $_ && $_ <= @lines ? : |
|
297
|
0 |
1 |
if ($error =~ /^(.*)\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)/) |
|
342
|
0 |
0 |
unless defined $str |
|
344
|
0 |
0 |
if ref $str eq 'Text::MicroTemplate::EncodedString' |
|
357
|
23 |
27 |
if $_mt_setter |
|
362
|
50 |
54 |
if $c[0] ne 'Text::MicroTemplate' |
|
386
|
49 |
1 |
if (my $_builder = eval $expr) |
|
417
|
1 |
1 |
if ($retval =~ /^\d+$/ and $_ ne $$mtref or defined $retval and not $retval) { } |