| line |
true |
false |
branch |
|
20
|
0 |
1 |
$^W ? : |
|
252
|
1 |
37 |
unless ($utmpl and $href) |
|
254
|
0 |
1 |
unless $Params::Check::WARNINGS_FATAL |
|
271
|
1 |
36 |
if ($Params::Check::PRESERVE_CASE and not $Params::Check::STRIP_LEADING_DASHES) { } |
|
277
|
37 |
0 |
unless $Params::Check::PRESERVE_CASE |
|
278
|
1 |
36 |
if $Params::Check::STRIP_LEADING_DASHES |
|
297
|
3 |
40 |
if ($$tmpl{'required'} and not exists $$args{$key}) |
|
308
|
19 |
21 |
if exists $$tmpl{'default'} |
|
311
|
40 |
0 |
if ($Params::Check::SANITY_CHECK_TEMPLATE) |
|
323
|
4 |
36 |
if (exists $$tmpl{'store'}) |
|
324
|
1 |
3 |
unless ref $$tmpl{'store'} |
|
330
|
3 |
37 |
if $$tmpl{'store'} |
|
334
|
3 |
34 |
if $fail |
|
346
|
3 |
35 |
unless ($$utmpl{$key}) |
|
349
|
1 |
2 |
if ($Params::Check::ALLOW_UNKNOWN) { } |
|
366
|
1 |
34 |
if ($tmpl{'no_override'}) |
|
377
|
4 |
30 |
if ($tmpl{'defined'} || $Params::Check::ONLY_ALLOW_DEFINED and not defined $arg) |
|
385
|
2 |
28 |
if ($tmpl{'strict_type'} || $Params::Check::STRICT_TYPE and ref $arg ne ref $tmpl{'default'}) |
|
396
|
5 |
23 |
if (exists $tmpl{'allow'} and not do {
local $Params::Check::_ERROR_STRING;
allow($arg, $tmpl{'allow'})
}) |
|
418
|
1 |
13 |
if $wrong || $warned and $Params::Check::WARNINGS_FATAL |
|
422
|
10 |
23 |
if $wrong |
|
428
|
0 |
3 |
unless exists $defs{$key} |
|
430
|
1 |
2 |
$Params::Check::NO_DUPLICATES ? : |
|
483
|
4 |
36 |
if (ref $_[1] eq 'Regexp') { } |
|
|
18 |
18 |
elsif (ref $_[1] eq 'CODE') { } |
|
|
7 |
11 |
elsif (ref $_[1] eq 'ARRAY') { } |
|
485
|
1 |
3 |
unless $_[0] =~ /$_[1]/ |
|
489
|
7 |
11 |
unless $_[1]->($_[0]) |
|
498
|
5 |
7 |
if allow($_[0], $_) |
|
505
|
7 |
4 |
unless _safe_eq($_[0], $_[1]) |
|
516
|
11 |
0 |
defined $_[0] && defined $_[1] ? : |
|
549
|
1 |
18 |
if $verbose |