| line |
true |
false |
branch |
|
21
|
0 |
1 |
$^W ? : |
|
263
|
0 |
38 |
unless ($_[0] and $_[1]) |
|
297
|
40 |
1 |
if (not $Params::Check::Faster::PRESERVE_CASE or $Params::Check::Faster::STRIP_LEADING_DASHES) |
|
299
|
40 |
0 |
unless $Params::Check::Faster::PRESERVE_CASE |
|
300
|
1 |
39 |
if $Params::Check::Faster::STRIP_LEADING_DASHES |
|
301
|
3 |
37 |
if ($arg_key ne $orig_arg_key) |
|
307
|
3 |
38 |
unless (exists $template{$arg_key}) |
|
308
|
2 |
1 |
unless ($Params::Check::Faster::ALLOW_UNKNOWN) |
|
321
|
38 |
0 |
if ($Params::Check::Faster::SANITY_CHECK_TEMPLATE) |
|
329
|
1 |
37 |
if ($arg_template{'no_override'}) |
|
342
|
4 |
33 |
if ($arg_template{'defined'} || $Params::Check::Faster::ONLY_ALLOW_DEFINED and not defined $arg_value) |
|
352
|
2 |
31 |
if ($arg_template{'strict_type'} || $Params::Check::Faster::STRICT_TYPE and ref $arg_value ne ref $arg_template{'default'}) |
|
364
|
5 |
26 |
if (exists $arg_template{'allow'} and not do {
local $Params::Check::Faster::_ERROR_STRING;
allow($arg_value, $arg_template{'allow'})
}) |
|
380
|
6 |
20 |
if (my $ref = $arg_template{'store'}) |
|
381
|
0 |
6 |
unless (_store_var($arg_key, $ref, $arg_value, $verbose, \@to_store, \@to_delete)) |
|
395
|
14 |
24 |
if (@keys_to_remove) |
|
403
|
3 |
17 |
if ($t_value->{'required'}) |
|
412
|
9 |
8 |
if (exists $t_value->{'default'}) |
|
415
|
0 |
9 |
if (my $ref = $t_value->{'store'}) |
|
416
|
0 |
0 |
unless (_store_var($t_key, $ref, $t_value->{'default'}, $verbose, \@to_store, \@to_delete)) |
|
423
|
1 |
16 |
if ($Params::Check::Faster::SANITY_CHECK_TEMPLATE and exists $t_value->{'store'} and not ref $t_value->{'store'}) |
|
433
|
1 |
16 |
if ($wrong || $warned and $Params::Check::Faster::WARNINGS_FATAL) |
|
439
|
13 |
24 |
if $wrong |
|
446
|
4 |
2 |
if ($type == 0) { } |
|
|
1 |
1 |
elsif ($type == 1) { } |
|
|
1 |
0 |
elsif ($type == 2) { } |
|
456
|
1 |
23 |
if $Params::Check::Faster::NO_DUPLICATES |
|
465
|
0 |
6 |
if ($Params::Check::Faster::SANITY_CHECK_TEMPLATE and not ref $ref) |
|
472
|
1 |
5 |
if (ref $ref eq 'ARRAY') { } |
|
|
1 |
4 |
elsif (ref $ref eq 'HASH') { } |
|
473
|
0 |
1 |
if (ref $value ne 'ARRAY') |
|
481
|
0 |
1 |
if $Params::Check::Faster::NO_DUPLICATES |
|
484
|
0 |
1 |
if (ref $value ne 'HASH') |
|
492
|
0 |
1 |
if $Params::Check::Faster::NO_DUPLICATES |
|
497
|
1 |
3 |
if $Params::Check::Faster::NO_DUPLICATES |
|
548
|
4 |
36 |
if (ref $_[1] eq 'Regexp') |
|
554
|
18 |
18 |
if (ref $_[1] eq 'CODE') |
|
559
|
7 |
11 |
if (ref $_[1] eq 'ARRAY') |
|
565
|
5 |
7 |
if (allow($_[0], $_)) |
|
573
|
11 |
0 |
defined $_[0] && defined $_[1] ? : |
|
609
|
0 |
18 |
if $verbose |