| line |
true |
false |
branch |
|
87
|
0 |
4 |
unless @_ == 2 |
|
93
|
0 |
4 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
96
|
4 |
0 |
if (defined $_[0]) |
|
97
|
0 |
4 |
unless ref \$_[0] eq "SCALAR" |
|
106
|
0 |
4 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
109
|
4 |
0 |
if (defined $_[1]) |
|
110
|
0 |
4 |
unless ref \$_[1] eq "SCALAR" |
|
124
|
0 |
4 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
127
|
4 |
0 |
if (defined $shv_final_unchecked) |
|
128
|
0 |
4 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
152
|
0 |
0 |
unless @_ == 1 |
|
169
|
0 |
0 |
unless @_ == 1 |
|
186
|
0 |
1 |
unless @_ == 1 |
|
208
|
0 |
0 |
unless @_ == 2 |
|
214
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
217
|
0 |
0 |
if (defined $_[0]) |
|
218
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
227
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
230
|
0 |
0 |
if (defined $_[1]) |
|
231
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
259
|
0 |
0 |
unless @_ == 2 |
|
265
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
268
|
0 |
0 |
if (defined $_[0]) |
|
269
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
278
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
281
|
0 |
0 |
if (defined $_[1]) |
|
282
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
310
|
0 |
0 |
unless @_ == 2 |
|
316
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
319
|
0 |
0 |
if (defined $_[0]) |
|
320
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
329
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
332
|
0 |
0 |
if (defined $_[1]) |
|
333
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
361
|
0 |
0 |
unless @_ == 2 |
|
367
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
370
|
0 |
0 |
if (defined $_[0]) |
|
371
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
380
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
383
|
0 |
0 |
if (defined $_[1]) |
|
384
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
412
|
0 |
0 |
unless @_ == 2 |
|
418
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
421
|
0 |
0 |
if (defined $_[0]) |
|
422
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
431
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
434
|
0 |
0 |
if (defined $_[1]) |
|
435
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
463
|
0 |
0 |
unless @_ == 2 |
|
469
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
472
|
0 |
0 |
if (defined $_[0]) |
|
473
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
482
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
485
|
0 |
0 |
if (defined $_[1]) |
|
486
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
514
|
0 |
0 |
unless @_ == 2 |
|
520
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
523
|
0 |
0 |
if (defined $_[0]) |
|
524
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
533
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
536
|
0 |
0 |
if (defined $_[1]) |
|
537
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
565
|
0 |
0 |
unless @_ == 2 |
|
571
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
574
|
0 |
0 |
if (defined $_[0]) |
|
575
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
584
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
587
|
0 |
0 |
if (defined $_[1]) |
|
588
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
611
|
0 |
0 |
unless @_ == 1 |
|
632
|
0 |
0 |
unless @_ == 2 |
|
638
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
641
|
0 |
0 |
if (defined $_[0]) |
|
642
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
651
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
654
|
0 |
0 |
if (defined $_[1]) |
|
655
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
683
|
0 |
0 |
unless @_ == 2 |
|
689
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
692
|
0 |
0 |
if (defined $_[0]) |
|
693
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
702
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
705
|
0 |
0 |
if (defined $_[1]) |
|
706
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
729
|
0 |
1 |
unless @_ == 1 |
|
750
|
0 |
0 |
unless @_ == 2 |
|
756
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
759
|
0 |
0 |
if (defined $_[0]) |
|
760
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
769
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
772
|
0 |
0 |
if (defined $_[1]) |
|
773
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
801
|
0 |
0 |
unless @_ == 2 |
|
807
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
810
|
0 |
0 |
if (defined $_[0]) |
|
811
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
820
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
823
|
0 |
0 |
if (defined $_[1]) |
|
824
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
847
|
0 |
0 |
unless @_ == 1 |
|
864
|
0 |
0 |
unless @_ == 1 |
|
885
|
0 |
0 |
unless @_ == 2 |
|
891
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
894
|
0 |
0 |
if (defined $_[0]) |
|
895
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
904
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
907
|
0 |
0 |
if (defined $_[1]) |
|
908
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
936
|
0 |
0 |
unless @_ == 2 |
|
942
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
945
|
0 |
0 |
if (defined $_[0]) |
|
946
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
955
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
958
|
0 |
0 |
if (defined $_[1]) |
|
959
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
982
|
0 |
1 |
unless @_ == 1 |
|
1003
|
0 |
0 |
unless @_ == 2 |
|
1009
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1012
|
0 |
0 |
if (defined $_[0]) |
|
1013
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1022
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1025
|
0 |
0 |
if (defined $_[1]) |
|
1026
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1054
|
0 |
0 |
unless @_ == 2 |
|
1060
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1063
|
0 |
0 |
if (defined $_[0]) |
|
1064
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1073
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1076
|
0 |
0 |
if (defined $_[1]) |
|
1077
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1105
|
0 |
1 |
unless @_ == 2 |
|
1111
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1114
|
1 |
0 |
if (defined $_[0]) |
|
1115
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1124
|
0 |
1 |
unless do {
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) {
builtin::blessed($_[1]) and $_[1]->isa("Regexp") unless ref $_[1] and not !&re::is_regexp($_[1]);
}
} |
|
1131
|
1 |
0 |
if (defined $_[1]) |
|
1132
|
0 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1137
|
0 |
1 |
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) |
|
1142
|
0 |
0 |
unless ref $_[1] and not !&re::is_regexp($_[1]) |
|
1173
|
0 |
1 |
unless @_ == 2 |
|
1179
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1182
|
1 |
0 |
if (defined $_[0]) |
|
1183
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1192
|
0 |
1 |
unless do {
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) {
builtin::blessed($_[1]) and $_[1]->isa("Regexp") unless ref $_[1] and not !&re::is_regexp($_[1]);
}
} |
|
1199
|
1 |
0 |
if (defined $_[1]) |
|
1200
|
0 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1205
|
0 |
1 |
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) |
|
1210
|
0 |
0 |
unless ref $_[1] and not !&re::is_regexp($_[1]) |
|
1241
|
0 |
0 |
unless @_ == 2 |
|
1247
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1250
|
0 |
0 |
if (defined $_[0]) |
|
1251
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1260
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1263
|
0 |
0 |
if (defined $_[1]) |
|
1264
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1292
|
0 |
0 |
unless @_ == 2 |
|
1298
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1301
|
0 |
0 |
if (defined $_[0]) |
|
1302
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1311
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1314
|
0 |
0 |
if (defined $_[1]) |
|
1315
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1343
|
0 |
1 |
unless @_ == 2 |
|
1349
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1352
|
1 |
0 |
if (defined $_[0]) |
|
1353
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1362
|
0 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1365
|
1 |
0 |
if (defined $_[1]) |
|
1366
|
0 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1380
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1383
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1384
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1414
|
0 |
2 |
unless @_ == 3 |
|
1420
|
0 |
2 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1423
|
2 |
0 |
if (defined $_[0]) |
|
1424
|
0 |
2 |
unless ref \$_[0] eq "SCALAR" |
|
1433
|
0 |
2 |
unless do {
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) {
builtin::blessed($_[1]) and $_[1]->isa("Regexp") unless ref $_[1] and not !&re::is_regexp($_[1]);
}
} |
|
1440
|
2 |
0 |
if (defined $_[1]) |
|
1441
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1446
|
1 |
1 |
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) |
|
1451
|
0 |
1 |
unless ref $_[1] and not !&re::is_regexp($_[1]) |
|
1463
|
0 |
2 |
unless do {
ref $_[2] eq "CODE" unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
}
} |
|
1467
|
1 |
1 |
unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
} |
|
1470
|
2 |
0 |
if (defined $_[2]) |
|
1471
|
1 |
1 |
unless ref \$_[2] eq "SCALAR" |
|
1485
|
1 |
1 |
if (ref $_[2] eq 'CODE') { } |
|
1494
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1497
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1498
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1528
|
0 |
2 |
unless @_ == 3 |
|
1534
|
0 |
2 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1537
|
2 |
0 |
if (defined $_[0]) |
|
1538
|
0 |
2 |
unless ref \$_[0] eq "SCALAR" |
|
1548
|
0 |
2 |
unless do {
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) {
builtin::blessed($_[1]) and $_[1]->isa("Regexp") unless ref $_[1] and not !&re::is_regexp($_[1]);
}
} |
|
1555
|
2 |
0 |
if (defined $_[1]) |
|
1556
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1561
|
1 |
1 |
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) |
|
1566
|
0 |
1 |
unless ref $_[1] and not !&re::is_regexp($_[1]) |
|
1579
|
0 |
2 |
unless do {
ref $_[2] eq "CODE" unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
}
} |
|
1583
|
1 |
1 |
unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
} |
|
1586
|
2 |
0 |
if (defined $_[2]) |
|
1587
|
1 |
1 |
unless ref \$_[2] eq "SCALAR" |
|
1602
|
1 |
1 |
if (ref $_[2] eq 'CODE') { } |
|
1611
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1614
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1615
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1640
|
0 |
0 |
unless @_ == 1 |
|
1647
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1650
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1651
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1680
|
0 |
1 |
unless @_ == 2 |
|
1686
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1689
|
1 |
0 |
if (defined $_[0]) |
|
1690
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1699
|
0 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1702
|
1 |
0 |
if (defined $_[1]) |
|
1703
|
0 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1717
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1720
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1721
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1750
|
0 |
0 |
unless @_ == 2 |
|
1756
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1759
|
0 |
0 |
if (defined $_[0]) |
|
1760
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1769
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1772
|
0 |
0 |
if (defined $_[1]) |
|
1773
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1801
|
0 |
0 |
unless @_ == 2 |
|
1807
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1810
|
0 |
0 |
if (defined $_[0]) |
|
1811
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1821
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1824
|
0 |
0 |
if (defined $_[1]) |
|
1825
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
1857
|
0 |
0 |
unless @_ >= 2 and @_ <= 4 |
|
1863
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1866
|
0 |
0 |
if (defined $_[0]) |
|
1867
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1877
|
0 |
0 |
unless do {
my $tmp = $_[1];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1879
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1887
|
0 |
0 |
unless $#_ >= 2 |
|
1890
|
0 |
0 |
unless do {
my $tmp = $_[2];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1892
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1900
|
0 |
0 |
unless $#_ >= 3 |
|
1902
|
0 |
0 |
unless do {
if (defined $_[3]) {
ref \(my $val = $_[3]) eq "SCALAR" unless ref \$_[3] eq "SCALAR";
}
} |
|
1905
|
0 |
0 |
if (defined $_[3]) |
|
1906
|
0 |
0 |
unless ref \$_[3] eq "SCALAR" |
|
1917
|
0 |
0 |
if (@_ - 1 == 1) { } |
|
|
0 |
0 |
elsif (@_ - 1 == 2) { } |
|
|
0 |
0 |
elsif (@_ - 1 == 3) { } |
|
1926
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1929
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1930
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1958
|
0 |
0 |
unless @_ == 1 |
|
1975
|
0 |
0 |
unless @_ == 1 |