| line |
true |
false |
branch |
|
16
|
64 |
0 |
$retval ? : |
|
17
|
64 |
0 |
if $pos == length $string |
|
25
|
0 |
0 |
if length $offending > $nchars |
|
34
|
0 |
252 |
unless my $retval = &$sequence(@_) |
|
38
|
64 |
188 |
if (defined $first_tail->[0]) { } |
|
53
|
0 |
316 |
unless my $retval = &$sequence(@_) |
|
57
|
252 |
64 |
if (not defined $retval->[0]) { } |
|
63
|
0 |
64 |
if (defined $tail->[0]) { } |
|
104
|
0 |
128 |
unless my $retval = _sequence('optws', _alternation(_sequence(_string('('), ('optws', 'first', 'optws'), _string(')')), 'filename'), 'optws')->(@_) |
|
115
|
0 |
128 |
if (ref $meat->[0]) { } |
|
127
|
252 |
64 |
unless $string =~ /\G($regex)/cgmsx |
|
148
|
0 |
128 |
if (($retval) = $string =~ /\G ' ( [^']+ ) '/cgmsx) { } |
|
|
0 |
128 |
elsif (($retval) = $string =~ /\G " ( (?: \\. | [^"])+ ) "/cgmsx) { } |
|
|
128 |
0 |
elsif (($retval) = $string =~ m[\G ( (?: \\. | [\w.-/])+ )]cgmsx) { } |
|
175
|
0 |
0 |
unless my($retval) = $string =~ /\G (\s+)/cgmsx |
|
193
|
128 |
0 |
unless substr($string, $pos, $len) eq $target |
|
216
|
380 |
2660 |
unless my $chunk = &$sub($string, $pos) |
|
227
|
1144 |
4556 |
ref $_ ? : |