| line |
true |
false |
branch |
|
24
|
0 |
184 |
if ($key =~ /^[\._]/) { } |
|
|
0 |
184 |
elsif ($key =~ /([^a-zA-Z0-9_])/) { } |
|
|
0 |
184 |
elsif ($key =~ /^(GET|CALL|SET|DEFAULT|INSERT|INCLUDE|PROCESS|WRAPPER|IF|UNLESS|ELSE|ELSIF|FOR|FOREACH|WHILE|SWITCH|CASE|USE|PLUGIN|FILTER|MACRO|PERL|RAWPERL|BLOCK|META|TRY|THROW|CATCH|FINAL|NEXT|LAST|BREAK|RETURN|STOP|CLEAR|TO|STEP|AND|OR|NOT|MOD|DIV|END)$/) { } |
|
42
|
2 |
2 |
unless (ref $template_path and ref $template_path eq 'SCALAR') |
|
52
|
0 |
4 |
unless (my $template = 'Template'->new({'ABSOLUTE', 1})) |
|
57
|
0 |
4 |
unless ($template->process($template_path, $vars, \$output)) |
|
69
|
1 |
1 |
if ($tag and $tag eq ':register') |
|
78
|
0 |
4 |
unless (my $template = 'Template'->new) |
|
84
|
0 |
4 |
unless ($template->process(\$content, $vars, \$output)) |