| line |
true |
false |
branch |
|
88
|
0 |
18 |
defined $opts && exists $opts->{'escapefunc'} ? : |
|
89
|
0 |
18 |
defined $opts && exists $opts->{'rawclass'} ? : |
|
101
|
0 |
18 |
if $filename |
|
120
|
0 |
23 |
if ($self->{'func'}) { } |
|
123
|
13 |
10 |
if ref $_context eq 'HASH' |
|
126
|
23 |
0 |
unless $self->{'args'} |
|
230
|
7 |
7 |
if $text |
|
231
|
9 |
5 |
if $mspace eq ' ' |
|
233
|
13 |
1 |
if $rspace |
|
234
|
5 |
9 |
if $mspace |
|
235
|
0 |
14 |
if $lspace |
|
238
|
13 |
5 |
$pos == 0 ? : |
|
239
|
16 |
2 |
if $rest |
|
250
|
7 |
7 |
if ($stmt =~ /\A(\s*)(\w+)\((.*?)\);?(\s*)\Z/) |
|
253
|
6 |
1 |
if defined $s |
|
257
|
8 |
0 |
unless ($self->{'args'}) |
|
258
|
0 |
8 |
if ($stmt =~ /\A(\s*)\#\@ARGS\s+(.*)(\s*)\Z/) |
|
264
|
0 |
0 |
unless $arg |
|
265
|
0 |
0 |
unless $arg =~ /\A([\$\@\%])?([a-zA-Z_]\w*)\Z/ |
|
266
|
0 |
0 |
unless not $1 or $1 eq '$' |
|
324
|
6 |
1 |
$handler ? : |
|
353
|
11 |
6 |
if $text |
|
354
|
17 |
0 |
if $expr |
|
355
|
4 |
13 |
if ($delete_newline) |
|
357
|
1 |
3 |
if (substr($input, $end, 1) eq "\n") |
|
363
|
9 |
14 |
$pos == 0 ? : |
|
395
|
4 |
30 |
unless $text |
|
398
|
17 |
13 |
$is_start ? : |
|
418
|
6 |
11 |
$bufref->[0] =~ / \$_buf \.= \Z/ ? : |
|
419
|
0 |
17 |
$flag_escape ? : |
|
429
|
0 |
0 |
unless ($funcname) |
|
431
|
0 |
0 |
if ($funcname) |
|
456
|
0 |
18 |
if ($self->{'args'}) |
|
476
|
0 |
0 |
if $self->{'escapefunc'} |
|
478
|
0 |
0 |
if $self->{'rawclass'} |
|
494
|
0 |
18 |
unless open IN, "<:encoding($Tenjin::ENCODING)", $filename |
|
496
|
18 |
0 |
if $lock_required |
|
517
|
16 |
0 |
$Tenjin::ENCODING eq 'UTF-8' ? : |
|
519
|
0 |
16 |
unless open OUT, $enc, $filename |
|
521
|
16 |
0 |
if $lock_required |