| line |
true |
false |
branch |
|
72
|
0 |
0 |
unless @_ >= 2 and @_ <= 3 |
|
78
|
0 |
0 |
unless ref $_[0] eq "HASH" |
|
85
|
0 |
0 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
88
|
0 |
0 |
if (defined $_[1]) |
|
89
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
99
|
0 |
0 |
unless $#_ >= 2 |
|
113
|
0 |
0 |
@_ - 1 == 1 ? : |
|
127
|
0 |
1 |
unless @_ == 1 |
|
143
|
0 |
1 |
unless @_ == 1 |
|
160
|
0 |
1 |
unless @_ == 1 |
|
181
|
0 |
1 |
unless @_ == 2 |
|
187
|
0 |
1 |
unless ref $_[0] eq "HASH" |
|
193
|
0 |
1 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
196
|
1 |
0 |
if (defined $_[1]) |
|
197
|
0 |
1 |
unless ref \$_[1] eq "SCALAR" |
|
220
|
0 |
1 |
unless @_ >= 2 |
|
242
|
0 |
2 |
unless @_ == 2 |
|
248
|
0 |
2 |
unless ref $_[0] eq "HASH" |
|
255
|
0 |
2 |
unless do {
unless (ref $_[1] eq "CODE") {
&Scalar::Util::blessed($_[1]) and $_[1]->isa("Regexp") unless ref $_[1] and not !&re::is_regexp($_[1]);
}
} |
|
260
|
1 |
1 |
unless (ref $_[1] eq "CODE") |
|
265
|
0 |
1 |
unless ref $_[1] and not !&re::is_regexp($_[1]) |
|
281
|
1 |
1 |
'CODE' eq ref $shv_match ? : |
|
291
|
0 |
2 |
unless ref $shv_final_unchecked eq "HASH" |
|
301
|
0 |
2 |
wantarray ? : |
|
314
|
0 |
1 |
unless @_ == 1 |
|
335
|
0 |
2 |
unless @_ == 2 |
|
341
|
0 |
2 |
unless ref $_[0] eq "HASH" |
|
347
|
0 |
2 |
unless do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
} |
|
350
|
2 |
0 |
if (defined $_[1]) |
|
351
|
0 |
2 |
unless ref \$_[1] eq "SCALAR" |
|
379
|
0 |
0 |
unless @_ == 2 |
|
385
|
0 |
0 |
unless ref $_[0] eq "HASH" |
|
392
|
0 |
0 |
unless ref $_[1] eq "CODE" |
|
419
|
0 |
0 |
unless @_ == 2 |
|
425
|
0 |
0 |
unless ref $_[0] eq "HASH" |
|
432
|
0 |
0 |
unless ref $_[1] eq "CODE" |
|
461
|
0 |
0 |
unless @_ == 2 |
|
467
|
0 |
0 |
unless ref $_[0] eq "HASH" |
|
474
|
0 |
0 |
unless ref $_[1] eq "CODE" |
|
496
|
0 |
1 |
unless @_ >= 2 |
|
499
|
0 |
1 |
@_ - 1 > 1 ? : |
|
512
|
0 |
2 |
unless @_ == 1 |
|
528
|
0 |
1 |
unless @_ == 1 |
|
544
|
0 |
0 |
unless @_ == 1 |
|
560
|
0 |
0 |
unless @_ == 1 |
|
568
|
0 |
0 |
unless ref $shv_final_unchecked eq "HASH" |
|
590
|
0 |
1 |
unless @_ >= 3 |
|
594
|
0 |
1 |
if scalar(@shv_params) % 2 |
|
600
|
0 |
1 |
if grep((!defined($_)), @shv_params[@shv_keys_idx]) |
|
606
|
0 |
2 |
unless do {
if (defined $shv_params[$shv_tmp]) {
ref \(my $val = $shv_params[$shv_tmp]) eq "SCALAR" unless ref \$shv_params[$shv_tmp] eq "SCALAR";
}
} |
|
609
|
2 |
0 |
if (defined $shv_params[$shv_tmp]) |
|
610
|
0 |
2 |
unless ref \$shv_params[$shv_tmp] eq "SCALAR" |
|
623
|
0 |
1 |
wantarray ? : |
|
636
|
0 |
0 |
unless @_ == 1 |
|
653
|
0 |
1 |
unless @_ == 1 |
|
669
|
0 |
1 |
unless @_ == 1 |