| line |
true |
false |
branch |
|
48
|
190 |
0 |
@_ ? :
|
|
|
0 |
190 |
if @_ != 3
|
|
|
190 |
0 |
$#_ >= 0 ? :
|
|
|
190 |
0 |
if (&Scalar::Util::blessed($impl))
|
|
|
190 |
0 |
do {
if (&Scalar::Util::blessed($impl)) {
my $method = $impl->can('DOES') || $impl->can('isa');
$impl->$method('MarpaX::Languages::M4::Role::Impl');
}
} ? :
|
|
|
190 |
0 |
if ($#_ >= 0)
|
|
|
190 |
0 |
$#_ >= 1 ? :
|
|
|
190 |
0 |
Type::Tiny::XS::AUTO::TC9($regexpType) ? :
|
|
|
190 |
0 |
if ($#_ >= 1)
|
|
|
190 |
0 |
$#_ >= 2 ? :
|
|
|
190 |
0 |
Type::Tiny::XS::Str($regexpString) ? :
|
|
|
190 |
0 |
if ($#_ >= 2)
|
|
53
|
0 |
190 |
$hasPreviousRegcomp ? :
|
|
61
|
154 |
36 |
if ($regexpType eq 'perl') { }
|
|
87
|
0 |
190 |
$hasPreviousRegcomp ? :
|
|
89
|
189 |
1 |
if (defined $regexp) { }
|
|
105
|
15217 |
0 |
@_ ? :
|
|
|
0 |
15217 |
if @_ < 2
|
|
|
0 |
15217 |
if @_ > 3
|
|
|
15217 |
0 |
$#_ >= 0 ? :
|
|
|
15217 |
0 |
if (&Scalar::Util::blessed($impl))
|
|
|
15217 |
0 |
do {
if (&Scalar::Util::blessed($impl)) {
my $method = $impl->can('DOES') || $impl->can('isa');
$impl->$method('MarpaX::Languages::M4::Role::Impl');
}
} ? :
|
|
|
15217 |
0 |
if ($#_ >= 0)
|
|
|
15217 |
0 |
$#_ >= 1 ? :
|
|
|
15217 |
0 |
Type::Tiny::XS::Str($string) ? :
|
|
|
15217 |
0 |
if ($#_ >= 1)
|
|
|
15190 |
27 |
$#_ >= 2 ? :
|
|
|
15190 |
0 |
Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
|
|
|
15190 |
27 |
if ($#_ >= 2)
|
|
114
|
0 |
15217 |
$hasPreviousRegcomp ? :
|
|
128
|
15073 |
144 |
if ($self->_regexp_type eq 'perl') { }
|
|
136
|
14742 |
331 |
if ($string =~ /$regexp/cgu)
|
|
161
|
108 |
36 |
if ($string =~ /$regexp/cgu)
|
|
191
|
0 |
15217 |
$hasPreviousRegcomp ? :
|
|
200
|
45 |
0 |
@_ ? :
|
|
|
0 |
45 |
if @_ != 3
|
|
|
45 |
0 |
$#_ >= 0 ? :
|
|
|
45 |
0 |
if (&Scalar::Util::blessed($impl))
|
|
|
45 |
0 |
do {
if (&Scalar::Util::blessed($impl)) {
my $method = $impl->can('DOES') || $impl->can('isa');
$impl->$method('MarpaX::Languages::M4::Role::Impl');
}
} ? :
|
|
|
45 |
0 |
if ($#_ >= 0)
|
|
|
45 |
0 |
$#_ >= 1 ? :
|
|
|
45 |
0 |
Type::Tiny::XS::Str($victim) ? :
|
|
|
45 |
0 |
if ($#_ >= 1)
|
|
|
45 |
0 |
$#_ >= 2 ? :
|
|
|
45 |
0 |
Type::Tiny::XS::Str($repl) ? :
|
|
|
45 |
0 |
if ($#_ >= 2)
|
|
209
|
29 |
59 |
if ($backslashPos < 0)
|
|
216
|
3 |
56 |
if ($replPos > $maxReplPos) { }
|
|
|
14 |
42 |
elsif ($ch eq '0' or $ch eq '&') { }
|
|
|
33 |
9 |
elsif ($ch =~ /[1-9]/u) { }
|
|
223
|
0 |
14 |
if ($ch eq '0')
|
|
224
|
0 |
0 |
unless ($warned{$ch})
|
|
237
|
8 |
25 |
if ($maxIndice < $ch) { }
|
|
238
|
8 |
0 |
unless ($warned{$ch})
|
|
246
|
23 |
2 |
if ($rpos > 0)
|