| line |
true |
false |
branch |
|
51
|
0 |
0 |
if defined $s |
|
52
|
0 |
0 |
if $c eq 'LINE FEED' or $c eq 'LF' |
|
54
|
0 |
0 |
if $s |
|
55
|
0 |
0 |
if $c eq 'CARRIAGE RETURN' or $c eq 'CR' |
|
57
|
0 |
0 |
if $s |
|
58
|
0 |
0 |
if $c eq 'FORM FEED' or $c eq 'FF' |
|
60
|
0 |
0 |
if $s |
|
61
|
0 |
0 |
if $c eq 'NEXT LINE' or $c eq 'NEL' |
|
63
|
0 |
0 |
if $s |
|
98
|
0 |
0 |
if ($cmd =~ /^ \[ \\ x \[ (.*) \] \] /x) { } |
|
|
0 |
0 |
elsif ($cmd =~ /^ \[ \\ X \[ (.*) \] \] /x) { } |
|
|
0 |
0 |
elsif ($cmd =~ /^ \s* \[ (.*) /x) { } |
|
|
0 |
0 |
elsif ($cmd =~ /^ \s* (.*) /x) { } |
|
111
|
0 |
0 |
exists $Pugs::Emitter::Rule::Perl5::CharClass::extra_unicode{$name} ? : |
|
|
0 |
0 |
exists $Pugs::Emitter::Rule::Perl5::CharClass::char_class{$name} ? : |
|
118
|
0 |
0 |
if ($op eq '+') { } |
|
|
0 |
0 |
elsif ($op eq '-') { } |
|
119
|
0 |
0 |
$out eq '' ? : |