| line |
true |
false |
branch |
|
155
|
1 |
1 |
0 == text_length($_[0]) ? : |
|
197
|
0 |
10 |
unless defined $str and defined $search |
|
198
|
3 |
7 |
$global ? : |
|
200
|
6 |
4 |
@matches ? : |
|
205
|
0 |
5 |
unless defined $str and defined $pattern |
|
211
|
0 |
2 |
unless defined $str |
|
212
|
0 |
2 |
unless $count |
|
219
|
0 |
25 |
unless defined $text |
|
220
|
0 |
25 |
unless defined $pattern |
|
221
|
0 |
25 |
unless defined $replace |
|
222
|
25 |
0 |
unless defined $global |
|
224
|
17 |
8 |
if ($replace =~ /\$\d+/) { } |
|
229
|
7 |
54 |
$2 > $#$start || $2 == 0 || !defined($start->[$2]) ? : |
|
|
5 |
61 |
$1 ? : |
|
235
|
17 |
0 |
if ($global) { } |
|
243
|
8 |
0 |
if ($global) { } |
|
255
|
0 |
1 |
unless defined $str and defined $search |
|
262
|
0 |
11 |
unless defined $str |
|
270
|
0 |
11 |
if ($] < 5.018) |
|
271
|
0 |
0 |
if (defined $limit) { } |
|
272
|
0 |
0 |
defined $split ? : |
|
277
|
0 |
0 |
defined $split ? : |
|
290
|
8 |
3 |
if (defined $split) |
|
295
|
3 |
8 |
unless defined $split_re |
|
304
|
5 |
3 |
if ($size < 0) { } |
|
323
|
9 |
2 |
if (defined $length) { } |
|
324
|
2 |
7 |
if (defined $replacement) { } |
|
361
|
0 |
2 |
unless defined $item |
|
362
|
0 |
2 |
if $PRIVATE and $item =~ /$PRIVATE/ |
|
375
|
1 |
1 |
0 == hash_size($_[0]) ? : |
|
411
|
0 |
1 |
$what eq 'each' ? : |
|
|
0 |
1 |
$what eq 'values' ? : |
|
|
0 |
1 |
$what eq 'keys' ? : |
|
424
|
4 |
1 |
@_ ? : |
|
434
|
2 |
17 |
unless ref $imp eq 'HASH' |
|
465
|
2 |
3 |
if (@_) |
|
508
|
1 |
1 |
0 == list_size($_[0]) ? : |
|
515
|
1 |
3 |
unless @_ |
|
516
|
1 |
2 |
unless &looks_like_number($_[0]) |
|
522
|
23 |
1 |
unless @_ |
|
528
|
24 |
1 |
unless @_ |
|
546
|
51 |
6 |
defined $joint ? : |
|
|
248 |
0 |
defined $_ ? : |
|
553
|
34 |
150 |
if (ref $item eq 'HASH') { } |
|
|
28 |
122 |
elsif (&blessed($item)) { } |
|
557
|
32 |
0 |
$item->can($_) ? : |
|
565
|
188 |
0 |
defined $_ ? : |
|
570
|
3 |
52 |
unless @$list > 1 |
|
579
|
13 |
39 |
@fields ? : |
|
586
|
0 |
6 |
unless @$list > 1 |
|
591
|
8 |
61 |
if (@fields) { } |
|
596
|
8 |
0 |
if $cmp = $A <=> $B |
|
618
|
3 |
0 |
ref $_ eq 'ARRAY' ? : |
|
624
|
3 |
0 |
ref $_ eq 'ARRAY' ? : |
|
630
|
2 |
2 |
unless defined $to |
|
631
|
1 |
3 |
if $from < 0 |
|
632
|
1 |
3 |
if $to < 0 |
|
638
|
4 |
3 |
if (@replace) { } |
|
|
1 |
2 |
elsif (defined $length) { } |
|
|
1 |
1 |
elsif (defined $offset) { } |
|
641
|
2 |
2 |
if @replace == 1 and ref $replace[0] eq 'ARRAY' |