| line |
true |
false |
branch |
|
32
|
1 |
0 |
$is_raw ? :
|
|
38
|
6 |
49 |
$tmpl =~ m[\A[.]?/]msx ? :
|
|
47
|
3 |
38 |
$tmpl =~ m[\A[.]?/]msx ? :
|
|
53
|
34 |
7 |
if ($pkg eq 'Text::MiniTmpl')
|
|
64
|
0 |
41 |
unless open my $fh, '<', $path
|
|
66
|
0 |
41 |
unless close $fh
|
|
68
|
129 |
41 |
$s =~ /\G ( (?>[^<&\@\#^]*) .*? ) (?=<!--&|&~|\@~|\#~|\^~|\z)/cgmsx ? :
|
|
|
2 |
170 |
$s =~ /\G\^~ ( (?>[^~]*) .*? ) ~\^/cgmsx ? :
|
|
|
23 |
172 |
$s =~ /\G\#~ ( (?>[^~]*) .*? ) ~\#/cgmsx ? :
|
|
|
9 |
195 |
$s =~ /\G\@~ ( (?>[^~]*) .*? ) ~@/cgmsx ? :
|
|
|
48 |
204 |
$s =~ /\G&~ ( (?>[^~]*) .*? ) ~&/cgmsx ? :
|
|
|
9 |
252 |
$s =~ /\G<!--& ( (?>[^-]*) .*? ) -->/cgmsx ? :
|
|
87
|
0 |
41 |
unless open my $fhe, '<', \$e
|
|
90
|
3 |
38 |
if $@
|
|
104
|
0 |
0 |
if ($POST eq 'utf8::encode($Text::MiniTmpl::__utf8);$Text::MiniTmpl::__ .= $Text::MiniTmpl::__utf8;') { }
|