| line |
true |
false |
branch |
|
55
|
3 |
0 |
unless ($hash_key) |
|
59
|
0 |
3 |
if (not exists $$data{$hash_key} and $$arg{'required'}) |
|
67
|
0 |
3 |
if (not $d and my $s = $self->can('_default_value_' . $hash_key)) |
|
105
|
12 |
0 |
if (my $serializer = $self->can('serialize_' . $$arg{'type'})) |
|
125
|
0 |
3 |
if (ref $hash ne 'HASH') |
|
131
|
3 |
0 |
if (not exists $$arg{'key_sig'} and exists $$arg{'key_type'}) |
|
139
|
2 |
1 |
if (not exists $$arg{'value_sig'} and exists $$arg{'value_type'}) |
|
147
|
0 |
3 |
unless my $key_sig = $$arg{'key_sig'} |
|
149
|
0 |
3 |
unless my $value_sig = $$arg{'value_sig'} |
|
181
|
0 |
1 |
if (ref $array ne 'ARRAY') |
|
185
|
1 |
0 |
if (not exists $$arg{'elem_sig'} and exists $$arg{'elem_type'}) |
|
193
|
0 |
1 |
unless my $elem_sig = $$arg{'elem_sig'} |
|
200
|
1 |
0 |
if ($$arg{'type'} eq 'array') |
|
228
|
0 |
8 |
unless defined $d |
|
231
|
0 |
8 |
unless $t |
|
248
|
6 |
0 |
if $t eq 'int' or $t eq 'string' or $t eq 'boolean' |
|
256
|
0 |
1 |
if (not $d or $d =~ /^false$/i) { } |
|
|
1 |
0 |
elsif ($d =~ /^true$/i or $d) { } |
|
269
|
0 |
3 |
unless ($d =~ /^[0-9]+$/) |
|
285
|
0 |
4 |
unless $_ |