| line |
true |
false |
branch |
|
67
|
24 |
5 |
defined blessed($val) && $val->can('to_string') ? : |
|
|
29 |
5 |
defined $val ? : |
|
78
|
3 |
975 |
if ($_[0] eq 'length') |
|
88
|
0 |
0 |
if $_[0] eq 'length' |
|
114
|
0 |
5 |
if $_[0] eq 'length' |
|
135
|
25 |
1 |
defined $arg ? : |
|
162
|
12 |
40 |
$num < 0 ? : |
|
191
|
3 |
9 |
unless $self->class eq 'String' |
|
197
|
1 |
8 |
if ref $self eq 'JE::String' |
|
213
|
3 |
16 |
unless $self->class eq 'String' |
|
220
|
1 |
15 |
ref $self eq 'JE::String' ? : |
|
242
|
12 |
0 |
if (defined $pos) |
|
244
|
2 |
10 |
unless $pos == $pos |
|
247
|
2 |
10 |
$pos < 0 || $pos >= length $str ? : |
|
268
|
12 |
0 |
if (defined $pos) |
|
270
|
2 |
10 |
unless $pos == $pos |
|
273
|
2 |
10 |
$pos < 0 || $pos >= length $str ? : |
|
312
|
18 |
0 |
defined $_[0] ? : |
|
315
|
9 |
9 |
defined $_[1] ? : |
|
319
|
1 |
1 |
length $find ? : |
|
|
2 |
16 |
$start > length $str ? : |
|
346
|
8 |
10 |
if (defined $_[1] and $_[1]->id ne 'undef') |
|
348
|
6 |
2 |
if $p < $pos |
|
350
|
18 |
0 |
defined $_[0] ? : |
|
373
|
0 |
0 |
$this->to_string->value cmp defined $that ? : |
|
400
|
20 |
100 |
if (not defined $re_obj or (eval {
do {
$re_obj->class
}
} || '') ne 'RegExp') |
|
413
|
117 |
3 |
unless ($re_obj->prop('global')->value) |
|
460
|
35 |
20 |
if (defined $foo and $foo->can('class') and $foo->class eq 'RegExp') { } |
|
468
|
19 |
1 |
defined $foo ? : |
|
473
|
21 |
34 |
if (defined $bar and $bar->can('class') and $bar->class eq 'Function') { } |
|
498
|
7 |
14 |
$g ? : |
|
521
|
32 |
2 |
defined $bar ? : |
|
536
|
13 |
17 |
defined $1 ? : |
|
543
|
11 |
23 |
$g ? : |
|
|
33 |
1 |
if $g ? $str =~ s/$foo/qq["$bar"];/gee : $str =~ s/$foo/qq["$bar"];/ee |
|
571
|
24 |
15 |
(eval {
do {
$re->class
}
} || '') eq 'RegExp' ? : |
|
|
39 |
1 |
defined $re ? : |
|
576
|
27 |
13 |
($str = $str->to_string->value16) =~ /$re/ ? : |
|
606
|
23 |
1 |
if (defined $start) { } |
|
610
|
1 |
22 |
if $start >= $length |
|
615
|
15 |
8 |
if (defined $end and $end->id ne 'undef') { } |
|
619
|
10 |
5 |
if $end > 0 |
|
688
|
7 |
1 |
if (not defined $limit or $limit->id eq 'undef') { } |
|
|
1 |
0 |
elsif (defined $limit) { } |
|
699
|
8 |
0 |
if (defined $sep) { } |
|
700
|
2 |
6 |
if ($sep->can('class') and $sep->class eq 'RegExp') { } |
|
|
0 |
6 |
elsif ($sep->id eq 'undef') { } |
|
721
|
6 |
2 |
unless (ref $sep) |
|
722
|
6 |
0 |
length $sep ? : |
|
728
|
0 |
2 |
unless length $str |
|
734
|
32 |
33 |
if $pos == pos $str |
|
740
|
1 |
32 |
if $-[0] == length $str |
|
752
|
0 |
1 |
@split > $limit ? : |
|
|
1 |
0 |
@split ? : |
|
|
7 |
1 |
$limit == -2 ? : |
|
778
|
81 |
0 |
if (defined $start) { } |
|
780
|
0 |
81 |
unless $start >= 0 |
|
785
|
5 |
76 |
if (not defined $end or $end->id eq 'undef') { } |
|
790
|
0 |
76 |
unless $end >= 0 |
|
793
|
0 |
81 |
if $start > $end |
|
797
|
81 |
0 |
defined $x ? : |
|
885
|
4 |
0 |
if (defined $start) { } |
|
891
|
0 |
4 |
if (not defined $len or $len->id eq 'undef') { } |
|
898
|
4 |
0 |
defined $len ? : |