| line |
true |
false |
branch |
|
190
|
0 |
10 |
unless defined $str and defined $search |
|
191
|
3 |
7 |
$global ? : |
|
193
|
6 |
4 |
@matches ? : |
|
198
|
0 |
5 |
unless defined $str and defined $pattern |
|
204
|
0 |
2 |
unless defined $str |
|
205
|
0 |
2 |
unless $count |
|
212
|
0 |
25 |
unless defined $text |
|
213
|
0 |
25 |
unless defined $pattern |
|
214
|
0 |
25 |
unless defined $replace |
|
215
|
25 |
0 |
unless defined $global |
|
217
|
17 |
8 |
if ($replace =~ /\$\d+/) { } |
|
222
|
7 |
54 |
$2 > $#$start || $2 == 0 || !defined($$start[$2]) ? : |
|
|
5 |
61 |
$1 ? : |
|
228
|
17 |
0 |
if ($global) { } |
|
236
|
8 |
0 |
if ($global) { } |
|
248
|
0 |
1 |
unless defined $str and defined $search |
|
255
|
0 |
11 |
unless defined $str |
|
263
|
0 |
11 |
if ($] < 5.018) |
|
264
|
0 |
0 |
if (defined $limit) { } |
|
265
|
0 |
0 |
defined $split ? : |
|
270
|
0 |
0 |
defined $split ? : |
|
283
|
8 |
3 |
if (defined $split) |
|
288
|
3 |
8 |
unless defined $split_re |
|
297
|
5 |
3 |
if ($size < 0) { } |
|
316
|
9 |
2 |
if (defined $length) { } |
|
317
|
2 |
7 |
if (defined $replacement) { } |
|
354
|
0 |
2 |
unless defined $item |
|
355
|
0 |
2 |
if $PRIVATE and $item =~ /$PRIVATE/ |
|
400
|
0 |
1 |
$what eq 'each' ? : |
|
|
0 |
1 |
$what eq 'values' ? : |
|
|
0 |
1 |
$what eq 'keys' ? : |
|
413
|
4 |
1 |
@_ ? : |
|
423
|
2 |
17 |
unless ref $imp eq 'HASH' |
|
454
|
2 |
3 |
if (@_) |
|
500
|
1 |
3 |
unless @_ |
|
501
|
1 |
2 |
unless looks_like_number($_[0]) |
|
507
|
23 |
1 |
unless @_ |
|
513
|
24 |
1 |
unless @_ |
|
530
|
248 |
0 |
defined $_ ? : |
|
531
|
51 |
6 |
defined $joint ? : |
|
538
|
34 |
17 |
if (ref $item eq 'HASH') { } |
|
|
17 |
0 |
elsif (blessed $item) { } |
|
542
|
21 |
0 |
$item->can($_) ? : |
|
550
|
55 |
0 |
defined $_ ? : |
|
555
|
3 |
52 |
unless @$list > 1 |
|
564
|
13 |
39 |
@fields ? : |
|
571
|
0 |
6 |
unless @$list > 1 |
|
580
|
1 |
5 |
@fields ? : |
|
592
|
3 |
0 |
ref $_ eq 'ARRAY' ? : |
|
598
|
3 |
0 |
ref $_ eq 'ARRAY' ? : |
|
604
|
2 |
2 |
unless defined $to |
|
605
|
1 |
3 |
if $from < 0 |
|
606
|
1 |
3 |
if $to < 0 |
|
612
|
4 |
3 |
if (@replace) { } |
|
|
1 |
2 |
elsif (defined $length) { } |
|
|
1 |
1 |
elsif (defined $offset) { } |
|
615
|
2 |
2 |
if @replace == 1 and ref $replace[0] eq 'ARRAY' |