| line |
true |
false |
branch |
|
100
|
19 |
0 |
if ($self_class eq 'Operator_104') { }
|
|
137
|
5 |
0 |
if ($self_class eq 'Operator_104') { }
|
|
149
|
0 |
5 |
if ($bind ne '=~')
|
|
158
|
5 |
18 |
if ($modifier eq '/')
|
|
167
|
0 |
5 |
if (substr($pattern_bare, 0, 1) ne '/')
|
|
170
|
0 |
5 |
if (substr($pattern_bare, -1, 1) ne '/')
|
|
185
|
0 |
5 |
if (length $pattern_bare > 20)
|
|
191
|
3 |
2 |
if ($match_or_substitute eq 'm') { }
|
|
|
2 |
0 |
elsif ($match_or_substitute eq 's') { }
|
|
202
|
9 |
3 |
if (exists $RPerl::Operation::Expression::Operator::RegularExpression::modifiers_compile->{$modifier}) { }
|
|
|
3 |
0 |
elsif (exists $RPerl::Operation::Expression::Operator::RegularExpression::modifiers_match->{$modifier}) { }
|
|
219
|
3 |
0 |
if ($modifiers_compile_enabled . $modifiers_compile_extra ne '')
|
|
223
|
3 |
0 |
if ($modifiers_match_enabled ne '')
|
|
250
|
4 |
2 |
if (exists $RPerl::Operation::Expression::Operator::RegularExpression::modifiers_compile->{$modifier}) { }
|
|
|
2 |
0 |
elsif (exists $RPerl::Operation::Expression::Operator::RegularExpression::modifiers_substitute->{$modifier}) { }
|
|
265
|
2 |
0 |
if ($modifiers_compile_enabled . $modifiers_compile_extra ne '')
|
|
269
|
2 |
0 |
if ($modifiers_substitute_enabled ne '')
|
|
275
|
0 |
2 |
if ($pattern_forward_slash_count != 1)
|
|
284
|
2 |
8 |
if ($pattern_character eq '/') { }
|
|
|
4 |
4 |
elsif (not $found_slash) { }
|