| line |
true |
false |
branch |
|
35
|
28 |
0 |
$condition ? : |
|
588
|
0 |
4 |
if ${$content_ref;} =~ s[
<< \s* ' ( \w+ ) ' ( [^\n]* ) \n
( .*? )
^ \1 $
]["\n'" . do {
my $text = $3;
$text =~ s/'/\\'/gmsx;
$text
} . q['] . $2;]egmsx |
|
602
|
0 |
4 |
if ${$content_ref;} =~ s[
<< \s* ( ["]? ) ( \w+ ) \1 ( [^\n]* ) \n
( .*? )
^ \2 $
][qq[\n"] . do {
my $text = $4;
$text =~ s/"/\\"/gmsx;
$text
} . '"' . $3;]egmsx |
|
621
|
0 |
78 |
unless defined $string |
|
623
|
0 |
78 |
unless defined $quot |
|
627
|
78 |
0 |
unless ($is_interpolate) |
|
629
|
78 |
0 |
if ($quot eq q[']) |
|
634
|
0 |
0 |
if ($quot eq 'q{') |
|
665
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$1 ? : |
|
679
|
0 |
46 |
unless @{$match;} |
|
712
|
0 |
46 |
$extra_parameter =~ / d /msx ? : |
|
|
16 |
30 |
$extra_parameter =~ / p /msx ? : |
|
|
16 |
30 |
$extra_parameter =~ / n /msx ? : |
|
|
0 |
46 |
$extra_parameter =~ / c /msx ? : |
|
716
|
62 |
30 |
defined $_ ? : |
|
719
|
36 |
26 |
length $_ ? : |