| line |
true |
false |
branch |
|
30
|
0 |
39 |
unless my $ref = eval $code |
|
42
|
2 |
2 |
if (&isa_regexpref($other)) |
|
43
|
1 |
1 |
$self =~ /$other/u ? : |
|
46
|
2 |
0 |
if (isa_string($other)) |
|
47
|
1 |
1 |
CORE::index($self, $other) < 0 ? : |
|
57
|
1 |
1 |
$self eq $other ? : |
|
64
|
0 |
2 |
unless defined $other |
|
65
|
1 |
1 |
$self->type eq $other->type && $self eq $other ? : |
|
79
|
1 |
1 |
$self gt $other ? : |
|
86
|
2 |
1 |
$self ge $other ? : |
|
93
|
1 |
1 |
$self lt $other ? : |
|
100
|
2 |
1 |
$self le $other ? : |
|
107
|
1 |
1 |
$self ne $other ? : |
|
135
|
2 |
4 |
if scalar @_ == 2 |
|
168
|
1 |
3 |
defined $mods ? : |
|
169
|
2 |
2 |
if (not &isa_regexpref($regexp) and isa_string($regexp)) |
|
185
|
2 |
8 |
unless defined $pos |
|
201
|
2 |
2 |
if (not &isa_regexpref($regexp) and isa_string($regexp)) |
|
205
|
2 |
2 |
unless defined $limit |