| line |
true |
false |
branch |
|
37
|
0 |
0 |
if $sigspace |
|
46
|
0 |
0 |
unless ref $n eq 'HASH' |
|
67
|
0 |
0 |
if $greedy eq '+' |
|
70
|
0 |
0 |
if ref $quantifier |
|
80
|
0 |
0 |
if $quant |
|
91
|
0 |
0 |
if $capture_count > $max |
|
118
|
0 |
0 |
if $char eq 'n' |
|
120
|
0 |
0 |
if $char eq 'N' |
|
123
|
0 |
0 |
if $char eq $_ |
|
124
|
0 |
0 |
if $char eq uc $_ |
|
136
|
0 |
0 |
if $capture_to_array |
|
142
|
0 |
0 |
if ref $program |
|
158
|
0 |
0 |
if ref $program |
|
164
|
0 |
0 |
if ref $program |
|
170
|
0 |
0 |
if ref $program |
|
176
|
0 |
0 |
if ref $program |
|
182
|
0 |
0 |
if $str eq '$' |
|
184
|
0 |
0 |
if $str eq '^' |
|
186
|
0 |
0 |
if $str eq '$$' |
|
188
|
0 |
0 |
if $str eq '^^' |
|
197
|
0 |
0 |
unless length $_[0] |
|
199
|
0 |
0 |
if $_[0] eq '/' |
|
222
|
0 |
0 |
if ($prefix eq q[']) |
|
227
|
0 |
0 |
if ($prefix eq '.') |
|
229
|
0 |
0 |
if (exists $Pugs::Emitter::Rule::Perl5::Regex::char_class{$cmd}) |
|
234
|
0 |
0 |
if ($prefix eq '?') |
|
237
|
0 |
0 |
if (exists $Pugs::Emitter::Rule::Perl5::Regex::char_class{$cmd}) |
|
242
|
0 |
0 |
if ($prefix =~ /[_[:alnum:]]/) |
|
243
|
0 |
0 |
if ($cmd eq 'null') |