| line |
true |
false |
branch |
|
87
|
0 |
4 |
unless @_ == 1 |
|
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" |
|
111
|
0 |
4 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
114
|
4 |
0 |
if (defined $shv_final_unchecked) |
|
115
|
0 |
4 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
140
|
0 |
0 |
unless @_ == 0 |
|
158
|
0 |
0 |
unless @_ == 0 |
|
176
|
0 |
1 |
unless @_ == 0 |
|
199
|
0 |
0 |
unless @_ == 1 |
|
205
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
208
|
0 |
0 |
if (defined $_[0]) |
|
209
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
238
|
0 |
0 |
unless @_ == 1 |
|
244
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
247
|
0 |
0 |
if (defined $_[0]) |
|
248
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
277
|
0 |
0 |
unless @_ == 1 |
|
283
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
286
|
0 |
0 |
if (defined $_[0]) |
|
287
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
316
|
0 |
0 |
unless @_ == 1 |
|
322
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
325
|
0 |
0 |
if (defined $_[0]) |
|
326
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
355
|
0 |
0 |
unless @_ == 1 |
|
361
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
364
|
0 |
0 |
if (defined $_[0]) |
|
365
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
394
|
0 |
0 |
unless @_ == 1 |
|
400
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
403
|
0 |
0 |
if (defined $_[0]) |
|
404
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
433
|
0 |
0 |
unless @_ == 1 |
|
439
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
442
|
0 |
0 |
if (defined $_[0]) |
|
443
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
472
|
0 |
0 |
unless @_ == 1 |
|
478
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
481
|
0 |
0 |
if (defined $_[0]) |
|
482
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
506
|
0 |
0 |
unless @_ == 0 |
|
528
|
0 |
0 |
unless @_ == 1 |
|
534
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
537
|
0 |
0 |
if (defined $_[0]) |
|
538
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
567
|
0 |
0 |
unless @_ == 1 |
|
573
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
576
|
0 |
0 |
if (defined $_[0]) |
|
577
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
601
|
0 |
1 |
unless @_ == 0 |
|
623
|
0 |
0 |
unless @_ == 1 |
|
629
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
632
|
0 |
0 |
if (defined $_[0]) |
|
633
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
662
|
0 |
0 |
unless @_ == 1 |
|
668
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
671
|
0 |
0 |
if (defined $_[0]) |
|
672
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
696
|
0 |
0 |
unless @_ == 0 |
|
714
|
0 |
0 |
unless @_ == 0 |
|
736
|
0 |
0 |
unless @_ == 1 |
|
742
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
745
|
0 |
0 |
if (defined $_[0]) |
|
746
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
775
|
0 |
0 |
unless @_ == 1 |
|
781
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
784
|
0 |
0 |
if (defined $_[0]) |
|
785
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
809
|
0 |
1 |
unless @_ == 0 |
|
831
|
0 |
0 |
unless @_ == 1 |
|
837
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
840
|
0 |
0 |
if (defined $_[0]) |
|
841
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
870
|
0 |
0 |
unless @_ == 1 |
|
876
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
879
|
0 |
0 |
if (defined $_[0]) |
|
880
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
909
|
0 |
1 |
unless @_ == 1 |
|
915
|
0 |
1 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
&Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
922
|
1 |
0 |
if (defined $_[0]) |
|
923
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
928
|
0 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
933
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
965
|
0 |
1 |
unless @_ == 1 |
|
971
|
0 |
1 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
&Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
978
|
1 |
0 |
if (defined $_[0]) |
|
979
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
984
|
0 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
989
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1021
|
0 |
0 |
unless @_ == 1 |
|
1027
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1030
|
0 |
0 |
if (defined $_[0]) |
|
1031
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1060
|
0 |
0 |
unless @_ == 1 |
|
1066
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1069
|
0 |
0 |
if (defined $_[0]) |
|
1070
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1099
|
0 |
1 |
unless @_ == 1 |
|
1105
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1108
|
1 |
0 |
if (defined $_[0]) |
|
1109
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1123
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1126
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1127
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1158
|
0 |
2 |
unless @_ == 2 |
|
1164
|
0 |
2 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
&Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
1171
|
2 |
0 |
if (defined $_[0]) |
|
1172
|
1 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1177
|
1 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
1182
|
0 |
1 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1194
|
0 |
2 |
unless do {
ref $_[1] eq "CODE" unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}
} |
|
1198
|
1 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1201
|
2 |
0 |
if (defined $_[1]) |
|
1202
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1216
|
1 |
1 |
if (ref $_[1] eq 'CODE') { } |
|
1225
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1228
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1229
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1260
|
0 |
2 |
unless @_ == 2 |
|
1266
|
0 |
2 |
unless do {
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) {
&Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
1273
|
2 |
0 |
if (defined $_[0]) |
|
1274
|
1 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1279
|
1 |
1 |
unless (do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}) |
|
1284
|
0 |
1 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1297
|
0 |
2 |
unless do {
ref $_[1] eq "CODE" unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}
} |
|
1301
|
1 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
1304
|
2 |
0 |
if (defined $_[1]) |
|
1305
|
1 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
1320
|
1 |
1 |
if (ref $_[1] eq 'CODE') { } |
|
1329
|
0 |
2 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1332
|
2 |
0 |
if (defined $shv_final_unchecked) |
|
1333
|
0 |
2 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1359
|
0 |
0 |
unless @_ == 0 |
|
1366
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1369
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1370
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1400
|
0 |
1 |
unless @_ == 1 |
|
1406
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1409
|
1 |
0 |
if (defined $_[0]) |
|
1410
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
1424
|
0 |
1 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1427
|
1 |
0 |
if (defined $shv_final_unchecked) |
|
1428
|
0 |
1 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1458
|
0 |
0 |
unless @_ == 1 |
|
1464
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1467
|
0 |
0 |
if (defined $_[0]) |
|
1468
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1497
|
0 |
0 |
unless @_ == 1 |
|
1503
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
1506
|
0 |
0 |
if (defined $_[0]) |
|
1507
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
1540
|
0 |
0 |
unless @_ >= 1 and @_ <= 3 |
|
1547
|
0 |
0 |
unless do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1549
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1557
|
0 |
0 |
unless $#_ >= 1 |
|
1560
|
0 |
0 |
unless do {
my $tmp = $_[1];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
1562
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
1570
|
0 |
0 |
unless $#_ >= 2 |
|
1572
|
0 |
0 |
unless do {
if (defined $_[2]) {
ref \(my $val = $_[2]) eq "SCALAR" unless ref \$_[2] eq "SCALAR";
}
} |
|
1575
|
0 |
0 |
if (defined $_[2]) |
|
1576
|
0 |
0 |
unless ref \$_[2] eq "SCALAR" |
|
1587
|
0 |
0 |
if (0 + @_ == 1) { } |
|
|
0 |
0 |
elsif (0 + @_ == 2) { } |
|
|
0 |
0 |
elsif (0 + @_ == 3) { } |
|
1596
|
0 |
0 |
unless do {
if (defined $shv_final_unchecked) {
ref \(my $val = $shv_final_unchecked) eq "SCALAR" unless ref \$shv_final_unchecked eq "SCALAR";
}
} |
|
1599
|
0 |
0 |
if (defined $shv_final_unchecked) |
|
1600
|
0 |
0 |
unless ref \$shv_final_unchecked eq "SCALAR" |
|
1629
|
0 |
0 |
unless @_ == 0 |