| line |
true |
false |
branch |
|
88
|
0 |
7 |
unless @_ == 1 |
|
94
|
0 |
7 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
97
|
7 |
0 |
if (defined $_[0]) |
|
98
|
0 |
7 |
unless ref \$_[0] eq "SCALAR" |
|
112
|
0 |
7 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
115
|
7 |
0 |
if (defined $shv_final_unchecked) |
|
116
|
0 |
7 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
141
|
0 |
0 |
unless @_ == 0 |
|
159
|
0 |
0 |
unless @_ == 0 |
|
177
|
0 |
1 |
unless @_ == 0 |
|
200
|
0 |
0 |
unless @_ == 1 |
|
206
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
209
|
0 |
0 |
if (defined $_[0]) |
|
210
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
239
|
0 |
0 |
unless @_ == 1 |
|
245
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
248
|
0 |
0 |
if (defined $_[0]) |
|
249
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
278
|
0 |
0 |
unless @_ == 1 |
|
284
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
287
|
0 |
0 |
if (defined $_[0]) |
|
288
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
317
|
0 |
0 |
unless @_ == 1 |
|
323
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
326
|
0 |
0 |
if (defined $_[0]) |
|
327
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
356
|
0 |
0 |
unless @_ == 1 |
|
362
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
365
|
0 |
0 |
if (defined $_[0]) |
|
366
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
395
|
0 |
0 |
unless @_ == 1 |
|
401
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
404
|
0 |
0 |
if (defined $_[0]) |
|
405
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
434
|
0 |
0 |
unless @_ == 1 |
|
440
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
443
|
0 |
0 |
if (defined $_[0]) |
|
444
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
473
|
0 |
0 |
unless @_ == 1 |
|
479
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
482
|
0 |
0 |
if (defined $_[0]) |
|
483
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
507
|
0 |
0 |
unless @_ == 0 |
|
529
|
0 |
0 |
unless @_ == 1 |
|
535
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
538
|
0 |
0 |
if (defined $_[0]) |
|
539
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
568
|
0 |
0 |
unless @_ == 1 |
|
574
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
577
|
0 |
0 |
if (defined $_[0]) |
|
578
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
602
|
0 |
1 |
unless @_ == 0 |
|
624
|
0 |
0 |
unless @_ == 1 |
|
630
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
633
|
0 |
0 |
if (defined $_[0]) |
|
634
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
663
|
0 |
0 |
unless @_ == 1 |
|
669
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
672
|
0 |
0 |
if (defined $_[0]) |
|
673
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
697
|
0 |
0 |
unless @_ == 0 |
|
715
|
0 |
0 |
unless @_ == 0 |
|
737
|
0 |
0 |
unless @_ == 1 |
|
743
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
746
|
0 |
0 |
if (defined $_[0]) |
|
747
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
776
|
0 |
0 |
unless @_ == 1 |
|
782
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
785
|
0 |
0 |
if (defined $_[0]) |
|
786
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
810
|
0 |
1 |
unless @_ == 0 |
|
832
|
0 |
0 |
unless @_ == 1 |
|
838
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
841
|
0 |
0 |
if (defined $_[0]) |
|
842
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
871
|
0 |
0 |
unless @_ == 1 |
|
877
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
880
|
0 |
0 |
if (defined $_[0]) |
|
881
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
910
|
0 |
1 |
unless @_ == 1 |
|
916
|
0 |
1 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
builtin::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
923
|
1 |
0 |
if (defined $_[0]) |
|
924
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
929
|
0 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
934
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
966
|
0 |
1 |
unless @_ == 1 |
|
972
|
0 |
1 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
builtin::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
979
|
1 |
0 |
if (defined $_[0]) |
|
980
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
985
|
0 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
990
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1022
|
0 |
0 |
unless @_ == 1 |
|
1028
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1031
|
0 |
0 |
if (defined $_[0]) |
|
1032
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1061
|
0 |
0 |
unless @_ == 1 |
|
1067
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1070
|
0 |
0 |
if (defined $_[0]) |
|
1071
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1100
|
0 |
1 |
unless @_ == 1 |
|
1106
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1109
|
1 |
0 |
if (defined $_[0]) |
|
1110
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1124
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1127
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1128
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1159
|
0 |
2 |
unless @_ == 2 |
|
1165
|
0 |
2 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
builtin::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
1172
|
2 |
0 |
if (defined $_[0]) |
|
1173
|
1 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1178
|
1 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
1183
|
0 |
1 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1195
|
0 |
2 |
unless do {
ref $_[1] eq "CODE" unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}
} |
|
1199
|
1 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1202
|
2 |
0 |
if (defined $_[1]) |
|
1203
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1217
|
1 |
1 |
if (ref $_[1] eq 'CODE') { } |
|
1226
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1229
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1230
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1261
|
0 |
2 |
unless @_ == 2 |
|
1267
|
0 |
2 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
builtin::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
1274
|
2 |
0 |
if (defined $_[0]) |
|
1275
|
1 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1280
|
1 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
1285
|
0 |
1 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1298
|
0 |
2 |
unless do {
ref $_[1] eq "CODE" unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}
} |
|
1302
|
1 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1305
|
2 |
0 |
if (defined $_[1]) |
|
1306
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1321
|
1 |
1 |
if (ref $_[1] eq 'CODE') { } |
|
1330
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1333
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1334
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1360
|
0 |
0 |
unless @_ == 0 |
|
1367
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1370
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1371
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1401
|
0 |
1 |
unless @_ == 1 |
|
1407
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1410
|
1 |
0 |
if (defined $_[0]) |
|
1411
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1425
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1428
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1429
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1459
|
0 |
0 |
unless @_ == 1 |
|
1465
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1468
|
0 |
0 |
if (defined $_[0]) |
|
1469
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1498
|
0 |
0 |
unless @_ == 1 |
|
1504
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1507
|
0 |
0 |
if (defined $_[0]) |
|
1508
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1541
|
0 |
0 |
unless @_ >= 1 and @_ <= 3 |
|
1548
|
0 |
0 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1550
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1558
|
0 |
0 |
unless $#_ >= 1 |
|
1561
|
0 |
0 |
unless do {
my $tmp = $_[1];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1563
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1571
|
0 |
0 |
unless $#_ >= 2 |
|
1573
|
0 |
0 |
unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
} |
|
1576
|
0 |
0 |
if (defined $_[2]) |
|
1577
|
0 |
0 |
unless ref \$_[2] eq "SCALAR" |
|
1588
|
0 |
0 |
if (0 + @_ == 1) { } |
|
|
0 |
0 |
elsif (0 + @_ == 2) { } |
|
|
0 |
0 |
elsif (0 + @_ == 3) { } |
|
1597
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1600
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1601
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1630
|
0 |
0 |
unless @_ == 0 |
|
1648
|
0 |
0 |
unless @_ == 0 |