| line |
true |
false |
branch |
|
30
|
0 |
23 |
if not @array and ref $class |
|
38
|
3 |
3 |
if (not defined $order) { } |
|
|
1 |
2 |
elsif (ref $order eq 'HASH') { } |
|
|
1 |
1 |
elsif ($order eq 'key_option') { } |
|
50
|
6 |
0 |
if ($order =~ /^(?:odd|even)$/) { } |
|
58
|
3 |
3 |
if ($order eq 'odd') { } |
|
65
|
0 |
6 |
if (want('OBJECT')) |
|
67
|
5 |
1 |
if wantarray |
|
75
|
0 |
3 |
if (want('OBJECT')) |
|
82
|
1 |
1 |
if ($undef) { } |
|
85
|
0 |
2 |
if (want('OBJECT')) |
|
86
|
0 |
2 |
if (wantarray) |
|
87
|
2 |
0 |
if (defined wantarray) |
|
95
|
1 |
1 |
if (want('OBJECT') or not defined wantarray) |
|
101
|
3 |
3 |
if defined $_ |
|
102
|
0 |
1 |
if (wantarray) |
|
103
|
1 |
0 |
if (defined wantarray) |
|
113
|
0 |
4 |
unless (defined $val) |
|
114
|
0 |
0 |
unless $_ |
|
115
|
0 |
0 |
if (want('OBJECT')) |
|
120
|
0 |
4 |
if (want('OBJECT')) |
|
145
|
0 |
3 |
unless (defined $vals[0]) |
|
153
|
0 |
3 |
if (want('OBJECT')) |
|
154
|
0 |
3 |
if (wantarray) |
|
155
|
2 |
1 |
if (defined wantarray) |
|
164
|
0 |
2 |
unless (defined $start_index) |
|
168
|
1 |
1 |
unless (defined $end_index) |
|
169
|
0 |
2 |
if ($end_index eq 'end' or $end_index == -1) |
|
175
|
0 |
2 |
if (want('OBJECT') or not defined wantarray) |
|
176
|
0 |
2 |
if (wantarray) |
|
177
|
2 |
0 |
if (defined wantarray) |
|
189
|
4 |
8 |
if ($count{$_} > 1) |
|
192
|
0 |
2 |
if (want('OBJECT') or not defined wantarray) |
|
197
|
2 |
0 |
if (wantarray) |
|
198
|
0 |
0 |
if (defined wantarray) |
|
206
|
0 |
2 |
unless (defined $val) |
|
207
|
0 |
0 |
unless ($_) |
|
211
|
1 |
1 |
if (grep /^\Q$val\E$/, @$self) |
|
221
|
0 |
2 |
unless scalar @{$self;} > 0 |
|
223
|
1 |
1 |
unless (defined $start) |
|
225
|
0 |
2 |
if ($length) { } |
|
228
|
1 |
1 |
if ($start =~ /^(\d+)\.\.(\d+)$/) |
|
235
|
0 |
1 |
if (want('OBJECT')) |
|
236
|
0 |
1 |
if (wantarray) |
|
237
|
1 |
0 |
if (defined wantarray) |
|
243
|
0 |
1 |
if (want('OBJECT')) |
|
251
|
0 |
1 |
if (want('OBJECT') or not defined wantarray) |
|
253
|
0 |
0 |
if (ref $$self[$n] eq 'ARRAY') |
|
258
|
0 |
0 |
if (ref $$self[$n] eq 'HASH') |
|
269
|
2 |
6 |
if (ref $temp[$n] eq 'ARRAY') |
|
274
|
0 |
6 |
if (ref $temp[$n] eq 'HASH') |
|
280
|
1 |
0 |
if (wantarray) |
|
281
|
0 |
0 |
if (defined wantarray) |
|
288
|
0 |
1 |
unless (ref $coderef eq 'CODE') |
|
294
|
0 |
1 |
if (want('OBJECT')) |
|
295
|
0 |
1 |
if (wantarray) |
|
296
|
1 |
0 |
if (defined wantarray) |
|
304
|
0 |
0 |
unless ($placement =~ /\bappend\b|\bprepend\b/i) |
|
309
|
0 |
0 |
unless (defined $string) |
|
313
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
314
|
0 |
0 |
if ($placement =~ /append/) |
|
315
|
0 |
0 |
if ($placement =~ /prepend/) |
|
320
|
0 |
0 |
if ($placement =~ /append/) |
|
321
|
0 |
0 |
if ($placement =~ /prepend/) |
|
323
|
0 |
0 |
if (wantarray) |
|
324
|
0 |
0 |
if (defined wantarray) |
|
333
|
0 |
1 |
unless (defined $val) |
|
335
|
0 |
0 |
unless ($$self[$n]) |
|
336
|
0 |
0 |
if (want('OBJECT')) |
|
337
|
0 |
0 |
if (defined wantarray) |
|
343
|
0 |
1 |
unless defined $$self[$n] |
|
344
|
1 |
0 |
if ($$self[$n] =~ /^\Q$val\E$/) |
|
345
|
0 |
1 |
if (want('OBJECT')) |
|
346
|
1 |
0 |
if (defined wantarray) |
|
358
|
0 |
1 |
unless (defined $indices[0]) |
|
363
|
1 |
0 |
if ($_ =~ /(\d+)\.\.(\d+)/) |
|
367
|
0 |
0 |
if (@{$self;}[$_]) { } |
|
371
|
0 |
1 |
if (scalar @iArray == 1) |
|
372
|
0 |
0 |
if (want('OBJECT')) |
|
376
|
1 |
0 |
if (want('OBJECT')) |
|
377
|
0 |
0 |
if (wantarray) |
|
378
|
0 |
0 |
if (defined wantarray) |
|
387
|
0 |
0 |
if (scalar @{$self;} > 0) |
|
395
|
0 |
0 |
unless (defined $index and $val) |
|
399
|
0 |
0 |
if (want('OBJECT')) |
|
407
|
0 |
0 |
if (wantarray) |
|
408
|
0 |
0 |
if (defined wantarray) |
|
415
|
0 |
5 |
unless $s |
|
419
|
5 |
0 |
if (want('OBJECT')) |
|
431
|
0 |
0 |
if (want('OBJECT')) |
|
439
|
0 |
5 |
if (want('OBJECT')) |
|
449
|
0 |
0 |
if $_ > $max |
|
451
|
0 |
0 |
if (want('OBJECT')) |
|
458
|
0 |
0 |
unless $template |
|
460
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
473
|
0 |
0 |
if (want('OBJECT')) |
|
481
|
1 |
5 |
if (reftype $self eq 'ARRAY') { } |
|
|
5 |
0 |
elsif (reftype $self eq 'SCALAR') { } |
|
482
|
1 |
0 |
if (wantarray) |
|
483
|
0 |
0 |
if (defined wantarray) |
|
485
|
0 |
0 |
if ($nl) |
|
488
|
5 |
0 |
if (defined wantarray) |
|
490
|
0 |
0 |
if ($nl) |
|
494
|
0 |
0 |
if ($nl) |
|
505
|
0 |
0 |
if (want('OBJECT')) |
|
506
|
0 |
0 |
if (wantarray) |
|
507
|
0 |
0 |
if (defined wantarray) |
|
516
|
0 |
0 |
if (not want('OBJECT') || !defined(wantarray)) { } |
|
524
|
0 |
0 |
if $i == $j |
|
528
|
0 |
0 |
if (want('OBJECT')) |
|
529
|
0 |
0 |
if (wantarray) |
|
530
|
0 |
0 |
if (defined wantarray) |
|
537
|
0 |
1 |
if (want('OBJECT') or not defined wantarray) |
|
543
|
1 |
0 |
if (wantarray) |
|
544
|
0 |
0 |
if (defined wantarray) |
|
553
|
0 |
2 |
unless (defined $val) |
|
555
|
0 |
0 |
unless ($$self[$n]) |
|
556
|
0 |
0 |
if (want('OBJECT')) |
|
557
|
0 |
0 |
if (defined wantarray) |
|
563
|
0 |
5 |
unless defined $$self[$n] |
|
564
|
1 |
4 |
if ($$self[$n] =~ /^\Q$val\E$/) |
|
565
|
0 |
1 |
if (want('OBJECT')) |
|
566
|
1 |
0 |
if (defined wantarray) |
|
577
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
578
|
0 |
0 |
unless (defined $dir and $dir eq 'ftol') |
|
587
|
0 |
0 |
unless (defined $dir and $dir eq 'ftol') |
|
589
|
0 |
0 |
if (wantarray) |
|
590
|
0 |
0 |
if (defined wantarray) |
|
593
|
0 |
0 |
if (wantarray) |
|
594
|
0 |
0 |
if (defined wantarray) |
|
601
|
0 |
0 |
if (want('OBJECT')) |
|
609
|
0 |
0 |
if ($coderef) { } |
|
618
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
624
|
0 |
0 |
if (wantarray) |
|
625
|
0 |
0 |
if (defined wantarray) |
|
628
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
633
|
0 |
0 |
if (wantarray) |
|
634
|
0 |
0 |
if (defined wantarray) |
|
645
|
0 |
0 |
unless (defined $offset) |
|
647
|
0 |
0 |
if (want('OBJECT')) |
|
648
|
0 |
0 |
if (wantarray) |
|
649
|
0 |
0 |
if (defined wantarray) |
|
651
|
0 |
0 |
unless (defined $length) |
|
653
|
0 |
0 |
if (want('OBJECT')) |
|
654
|
0 |
0 |
if (wantarray) |
|
655
|
0 |
0 |
if (defined wantarray) |
|
657
|
0 |
0 |
unless (defined $list[0]) |
|
659
|
0 |
0 |
if (want('OBJECT')) |
|
660
|
0 |
0 |
if (wantarray) |
|
661
|
0 |
0 |
if (defined wantarray) |
|
665
|
0 |
0 |
if (want('OBJECT')) |
|
666
|
0 |
0 |
if (wantarray) |
|
667
|
0 |
0 |
if (defined wantarray) |
|
679
|
1 |
2 |
if (want('OBJECT') or not defined wantarray) |
|
686
|
1 |
1 |
if (wantarray) |
|
687
|
1 |
0 |
if (defined wantarray) |
|
695
|
0 |
0 |
if (want('OBJECT')) |
|
696
|
0 |
0 |
if (wantarray) |
|
697
|
0 |
0 |
if (defined wantarray) |
|
705
|
0 |
0 |
if $reversed |
|
709
|
0 |
0 |
if (want('OBJECT')) |
|
710
|
0 |
0 |
if wantarray |
|
711
|
0 |
0 |
if defined wantarray |
|
717
|
0 |
0 |
if $reversed |
|
719
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
724
|
0 |
0 |
if wantarray |
|
725
|
0 |
0 |
if defined wantarray |
|
731
|
0 |
0 |
if $reversed |
|
738
|
0 |
0 |
if ($item1{$_}) |
|
742
|
0 |
0 |
if (want('OBJECT')) |
|
743
|
0 |
0 |
if (wantarray) |
|
744
|
0 |
0 |
if (defined wantarray) |
|
750
|
0 |
1 |
if $reversed |
|
757
|
3 |
5 |
if (exists $item2{$_}) |
|
763
|
1 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
770
|
1 |
0 |
if (wantarray) |
|
771
|
0 |
0 |
if (defined wantarray) |
|
777
|
0 |
2 |
if $reversed |
|
788
|
4 |
48 |
if defined $seen{$$op2[$i2]} and $seen{$$op2[$i2]} eq $i1 |
|
790
|
6 |
42 |
if ($$op1[$i1] eq $$op2[$i2]) |
|
798
|
0 |
2 |
if (want('OBJECT') or not defined wantarray) |
|
802
|
2 |
0 |
if (wantarray) |
|
803
|
0 |
0 |
if (defined wantarray) |
|
809
|
0 |
0 |
if $reversed |
|
813
|
0 |
0 |
if (scalar @$op1 != scalar @$op2) |
|
819
|
0 |
0 |
unless defined $count1{$key} |
|
820
|
0 |
0 |
unless defined $count2{$key} |
|
821
|
0 |
0 |
if ($count1{$key} ne $count2{$key}) |
|
829
|
0 |
0 |
if $reversed |
|
833
|
0 |
0 |
if (scalar @$op1 != scalar @$op2) |
|
839
|
0 |
0 |
unless defined $count1{$key} |
|
840
|
0 |
0 |
unless defined $count2{$key} |
|
841
|
0 |
0 |
if ($count1{$key} ne $count2{$key}) |
|
849
|
0 |
0 |
if $reversed |
|
857
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
863
|
0 |
0 |
if (wantarray) |
|
864
|
0 |
0 |
if (defined wantarray) |
|
872
|
0 |
0 |
if $reversed |
|
877
|
0 |
0 |
if (want('OBJECT') or not defined wantarray) |
|
884
|
0 |
0 |
if (wantarray) |
|
885
|
0 |
0 |
if (defined wantarray) |