| line |
true |
false |
branch |
|
351
|
395 |
434 |
if ($tpl =~ s/ ( ^
(? .*? )
\x{fddf}
(? $keypat )
(?: : (? .*? ) )?
(?: (? \= )
(? [^|}\x{fddf}]*) )?
(?: \| (? [^|}\x{fddf}]* )
(?: \| (? [^|}\x{fddf}]* ) )?
)?
\}
(? .* )
$
)
/_interpolate($ctl, {%+});/eosx) { } |
|
386
|
0 |
829 |
if $ctl->{'trace'} |
|
389
|
434 |
395 |
if ($prev eq $t) |
|
395
|
0 |
395 |
if $ctl->{'trace'} |
|
410
|
7 |
388 |
if ($key =~ /^(.*)\.(-?\d+)$/) |
|
414
|
138 |
257 |
ref $m eq 'CODE' ? : |
|
415
|
314 |
81 |
if (defined $newval) |
|
418
|
236 |
78 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
|
0 |
78 |
elsif ($inx) { } |
|
420
|
6 |
230 |
if ($inx) { } |
|
421
|
4 |
2 |
if ($inx > 0) { } |
|
422
|
3 |
1 |
if ($inx <= @$val) { } |
|
445
|
10 |
155 |
unless defined $newval |
|
446
|
0 |
155 |
unless my $fmt = $_ |
|
449
|
15 |
140 |
if ($fmt eq 'lc') { } |
|
|
5 |
135 |
elsif ($fmt eq 'uc') { } |
|
|
10 |
125 |
elsif ($fmt eq 'sc') { } |
|
|
10 |
115 |
elsif ($fmt eq 'ic') { } |
|
|
55 |
60 |
elsif ($fmt =~ /^([lr])pad\((\d+)(?:,(.*?))?\)$/) { } |
|
|
40 |
20 |
elsif ($fmt =~ /^replace\((.+?),(.*?)\)$/) { } |
|
|
20 |
0 |
elsif ($fmt =~ /^%/) { } |
|
468
|
76 |
319 |
if ($i->{'op'}) { } |
|
|
254 |
65 |
elsif ($val ne '') { } |
|
470
|
40 |
36 |
if ($i->{'op'} eq '=' and $val eq $test) { } |
|
500
|
25 |
30 |
unless (my $need = $len - length($val)) > 0 |
|
502
|
15 |
15 |
if ($lr eq "l") |