| line |
true |
false |
branch |
|
89
|
0 |
0 |
unless $$source =~ s[
(
$re_pod |
$re_comment |
$re_here |
$re_data
)
][my $result = $1;
$result =~ /\A($re_data)/ ? $class->fold_data : ($result =~ /\A($re_pod)/ ? $class->fold_pod : ($result =~ /\A($re_comment)/ ? $class->fold_comment : ($result =~ /\A($re_here)/ ? $class->fold_here : die("'${result}' didn't match '${re_comment}'"))));]ex |
|
98
|
0 |
0 |
$result =~ /\A($re_here)/ ? : |
|
|
0 |
0 |
$result =~ /\A($re_comment)/ ? : |
|
|
0 |
0 |
$result =~ /\A($re_pod)/ ? : |
|
|
0 |
0 |
$result =~ /\A($re_data)/ ? : |
|
132
|
0 |
0 |
unless $match =~ s/.*?([0-9a-fA-F]{40}).*/$1/s |
|
162
|
0 |
0 |
if ($text =~ s/^(([0-9a-fA-F]{40})\n.*\n)//) |
|
163
|
0 |
0 |
if (defined $$digest_map{$2}) { } |