| line |
true |
false |
branch |
|
17
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
|
57 |
0 |
@_ == 1 && !ref($_[0]) ? : |
|
31
|
2 |
2 |
ref $cmp ? : |
|
36
|
15 |
38 |
ref $cmp ? : |
|
51
|
2 |
55 |
unless defined eval {
do {
$ret = _parse_template($flags || {})
}
} |
|
60
|
57 |
14 |
if $outer |
|
63
|
76 |
21 |
$outer ? : |
|
|
51 |
46 |
if $outer ? /\G([^{]+)/cg : /\G([^ \t\{\}]+)/cg |
|
65
|
69 |
28 |
unless /\G(?=\{)/cg |
|
71
|
5 |
1 |
unless (ref $parts[$i] or ref $parts[$i + 1]) |
|
75
|
69 |
0 |
if ($_[0]{'compile'}) { } |
|
77
|
19 |
1 |
ref $_ ? : |
|
78
|
52 |
17 |
@parts == 1 && !ref($parts[0]) ? : |
|
85
|
19 |
9 |
if (/\G\{(\w+)/cg) |
|
88
|
13 |
6 |
if (/\G[ \t]+/cg) { } |
|
90
|
6 |
8 |
if (/\G(\w+)=/cg) { } |
|
98
|
1 |
5 |
unless /\G\}/cg |
|
100
|
18 |
0 |
if ($_[0]{'compile'}) { } |
|
106
|
6 |
12 |
if (@named_param) { } |
|
119
|
0 |
0 |
@named_param ? : |
|
122
|
7 |
2 |
if /\G\{ [#] ([0-9A-Za-z]+) \}/cgx |
|
123
|
1 |
1 |
if /\G\{\}/cgx |