| 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 |
$_ 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 |
|
740
|
0 |
16 |
if ${$content_ref;} =~ s[
<< \s* ( ["]? ) ( \w+ ) \1 ( [^\n]* ) \n
( .*? )
^ \2 $
][qq[\n"] . do {
my $text = $4;
$text =~ s/"/\\"/gmsx;
$text
} . '"' . $3;]egmsx |
|
759
|
3 |
278 |
unless defined $string |
|
761
|
0 |
278 |
unless defined $quot |
|
765
|
278 |
0 |
unless ($is_interpolate) |
|
767
|
272 |
6 |
if ($quot eq q[']) |
|
772
|
6 |
0 |
if ($quot eq 'q{') |
|
803
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$1 ? : |
|
817
|
6 |
157 |
unless @{$match;} |
|
820
|
6 |
151 |
if ($extra_parameter eq 'begin') |
|
855
|
6 |
145 |
if ($extra_parameter eq 'end') |
|
858
|
0 |
2 |
unless @{$self->domain_stack;} |
|
863
|
0 |
2 |
unless @{$self->category_stack;} |
|
868
|
0 |
2 |
unless @{$self->domain_stack;} |
|
870
|
0 |
2 |
unless @{$self->category_stack;} |
|
909
|
26 |
119 |
$extra_parameter =~ / d /msx ? : |
|
|
48 |
97 |
$extra_parameter =~ / p /msx ? : |
|
|
28 |
117 |
$extra_parameter =~ / n /msx ? : |
|
|
26 |
119 |
$extra_parameter =~ / c /msx ? : |
|
913
|
170 |
120 |
defined $_ ? : |
|
916
|
88 |
82 |
length $_ ? : |