| line |
true |
false |
branch |
|
73
|
0 |
0 |
unless @_ >= 1 and @_ <= 2 |
|
79
|
0 |
0 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
82
|
0 |
0 |
if (defined $_[0]) |
|
83
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
93
|
0 |
0 |
unless $#_ >= 1 |
|
105
|
0 |
0 |
0 + @_ == 1 ? : |
|
120
|
0 |
1 |
unless @_ == 0 |
|
137
|
0 |
1 |
unless @_ == 0 |
|
155
|
0 |
1 |
unless @_ == 0 |
|
177
|
0 |
1 |
unless @_ == 1 |
|
183
|
0 |
1 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
186
|
1 |
0 |
if (defined $_[0]) |
|
187
|
0 |
1 |
unless ref \$_[0] eq "SCALAR" |
|
211
|
0 |
1 |
unless @_ >= 1 |
|
234
|
0 |
2 |
unless @_ == 1 |
|
240
|
0 |
2 |
unless do {
unless (ref $_[0] eq "CODE") {
&Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp") unless ref $_[0] and not !&re::is_regexp($_[0]);
}
} |
|
245
|
1 |
1 |
unless (ref $_[0] eq "CODE") |
|
250
|
0 |
1 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
266
|
1 |
1 |
'CODE' eq ref $shv_match ? : |
|
276
|
0 |
2 |
unless ref $shv_final_unchecked eq "HASH" |
|
286
|
0 |
2 |
wantarray ? : |
|
300
|
0 |
1 |
unless @_ == 0 |
|
322
|
0 |
2 |
unless @_ == 1 |
|
328
|
0 |
2 |
unless do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
331
|
2 |
0 |
if (defined $_[0]) |
|
332
|
0 |
2 |
unless ref \$_[0] eq "SCALAR" |
|
361
|
0 |
0 |
unless @_ == 1 |
|
367
|
0 |
0 |
unless ref $_[0] eq "CODE" |
|
395
|
0 |
0 |
unless @_ == 1 |
|
401
|
0 |
0 |
unless ref $_[0] eq "CODE" |
|
431
|
0 |
0 |
unless @_ == 1 |
|
437
|
0 |
0 |
unless ref $_[0] eq "CODE" |
|
460
|
0 |
1 |
unless @_ >= 1 |
|
463
|
0 |
1 |
0 + @_ > 1 ? : |
|
477
|
0 |
2 |
unless @_ == 0 |
|
494
|
0 |
1 |
unless @_ == 0 |
|
511
|
0 |
0 |
unless @_ == 0 |
|
528
|
0 |
0 |
unless @_ == 0 |
|
536
|
0 |
0 |
unless ref $shv_final_unchecked eq "HASH" |
|
559
|
0 |
1 |
unless @_ >= 2 |
|
563
|
0 |
1 |
if scalar(@shv_params) % 2 |
|
569
|
0 |
1 |
if grep((!defined($_)), @shv_params[@shv_keys_idx]) |
|
574
|
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";
}
} |
|
577
|
2 |
0 |
if (defined $shv_params[$shv_tmp]) |
|
578
|
0 |
2 |
unless ref \$shv_params[$shv_tmp] eq "SCALAR" |
|
591
|
0 |
1 |
wantarray ? : |
|
605
|
0 |
0 |
unless @_ == 0 |
|
623
|
0 |
1 |
unless @_ == 0 |
|
640
|
0 |
1 |
unless @_ == 0 |