| 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 |
|
603
|
0 |
4 |
if ${$content_ref;} =~ s[
<< \s* ( ["]? ) ( \w+ ) \1 ( [^\n]* ) \n
( .*? )
^ \2 $
][qq[\n"] . do {
my $text = $4;
$text =~ s/"/\\"/gmsx;
$text
} . '"' . $3;]egmsx |
|
623
|
0 |
78 |
unless defined $string |
|
625
|
0 |
78 |
unless defined $quot |
|
629
|
78 |
0 |
unless ($is_interpolate) |
|
631
|
78 |
0 |
if ($quot eq "'") |
|
636
|
0 |
0 |
if ($quot eq "q{") |
|
667
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
if ($1) { } |
|
681
|
0 |
46 |
unless @{$match;} |
|
714
|
0 |
46 |
$extra_parameter =~ / d /msx ? : |
|
|
16 |
30 |
$extra_parameter =~ / p /msx ? : |
|
|
16 |
30 |
$extra_parameter =~ / n /msx ? : |
|
|
0 |
46 |
$extra_parameter =~ / c /msx ? : |
|
718
|
62 |
30 |
defined $_ ? : |
|
721
|
36 |
26 |
length $_ ? : |