| line |
true |
false |
branch |
|
18
|
0 |
113 |
unless defined $opt |
|
19
|
0 |
113 |
unless (defined $caller) |
|
23
|
0 |
152 |
unless (exists $valid->{$key}) |
|
26
|
37 |
115 |
unless defined $opt->{$key} |
|
27
|
16 |
99 |
if ($valid->{$key} =~ /^Array/) { } |
|
|
0 |
99 |
elsif ($valid->{$key} =~ /^Regexp/) { } |
|
|
0 |
99 |
elsif (ref $opt->{$key}) { } |
|
|
24 |
75 |
elsif ($valid->{$key} eq 'Str') { } |
|
|
0 |
75 |
elsif (not $opt->{$key} =~ /^$valid->{$key}\z/x) { } |
|
28
|
0 |
16 |
if ref $opt->{$key} ne "ARRAY" |
|
29
|
16 |
0 |
if ($valid->{$key} eq "Array_Int") |
|
31
|
0 |
28 |
unless defined $_ |
|
32
|
0 |
28 |
unless /^[0-9]+\z/ |
|
37
|
0 |
0 |
if ref $opt->{$key} ne "Regexp" |