| line |
true |
false |
branch |
|
35
|
112 |
112 |
$condition ? : |
|
716
|
2 |
2 |
lc $1 eq 'cut' ? : |
|
|
2 |
1202 |
$is_pod ? : |
|
|
4 |
1204 |
/ \A [=] ( \w+ ) /msx ? : |
|
|
200 |
1208 |
$is_end ? : |
|
|
16 |
1408 |
if ($_ eq '__END__') { } |
|
726
|
0 |
16 |
if ${$content_ref;} =~ s[
<< \s* ' ( \w+ ) ' ( [^\n]* ) \n
( .*? )
^ \1 $
]["\n'" . do {
my $text = $3;
$text =~ s/'/\\'/gmsx;
$text
} . q['] . $2;]egmsx |
|
741
|
0 |
16 |
if ${$content_ref;} =~ s[
<< \s* ( ["]? ) ( \w+ ) \1 ( [^\n]* ) \n
( .*? )
^ \2 $
][qq[\n"] . do {
my $text = $4;
$text =~ s/"/\\"/gmsx;
$text
} . '"' . $3;]egmsx |
|
761
|
3 |
278 |
unless defined $string |
|
763
|
0 |
278 |
unless defined $quot |
|
767
|
278 |
0 |
unless ($is_interpolate) |
|
769
|
272 |
6 |
if ($quot eq "'") |
|
774
|
6 |
0 |
if ($quot eq "q{") |
|
805
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
if ($1) { } |
|
819
|
6 |
157 |
unless @{$match;} |
|
822
|
6 |
151 |
if ($extra_parameter eq "begin") |
|
857
|
6 |
145 |
if ($extra_parameter eq "end") |
|
860
|
0 |
2 |
unless @{$self->domain_stack;} |
|
865
|
0 |
2 |
unless @{$self->category_stack;} |
|
870
|
0 |
2 |
unless @{$self->domain_stack;} |
|
872
|
0 |
2 |
unless @{$self->category_stack;} |
|
911
|
26 |
119 |
$extra_parameter =~ / d /msx ? : |
|
|
48 |
97 |
$extra_parameter =~ / p /msx ? : |
|
|
28 |
117 |
$extra_parameter =~ / n /msx ? : |
|
|
26 |
119 |
$extra_parameter =~ / c /msx ? : |
|
915
|
170 |
120 |
defined $_ ? : |
|
918
|
88 |
82 |
length $_ ? : |