| line |
true |
false |
branch |
|
11
|
0 |
42 |
unless ref $profile eq 'HASH' |
|
32
|
3 |
62 |
if $key =~ /^use_/ |
|
33
|
1 |
61 |
unless $key eq any(@valid_profile_keys) |
|
37
|
1 |
41 |
if (@invalid) |
|
49
|
1 |
79 |
if (ref $$valid{$field}) { } |
|
50
|
0 |
1 |
if ref $$valid{$field} ne 'ARRAY' |
|
52
|
3 |
0 |
unless defined $$valid{$field}[$i] and length $$valid{$field}[$i] and not $$valid{$field}[$i] =~ /^\x00$/ |
|
60
|
0 |
5 |
if defined $item |
|
66
|
1 |
0 |
unless grep {defined $_;} @{$$valid{$field};} |
|
69
|
3 |
74 |
unless defined $$valid{$field} and length $$valid{$field} and not $$valid{$field} =~ /^\x00$/ |
|
83
|
81 |
64 |
unless defined $val |
|
86
|
63 |
1 |
if (ref $val eq 'ARRAY') { } |
|
88
|
62 |
1 |
any(@$val) ne undef ? : |
|
93
|
1 |
0 |
length $val ? : |
|
103
|
40 |
1 |
if (&Scalar::Util::blessed($data) and $data->can('param')) { } |
|
|
1 |
0 |
elsif (ref $data eq 'HASH') { } |
|
115
|
0 |
73 |
if ($data->isa('CGI::Simple')) { } |
|
123
|
1 |
72 |
scalar @v > 1 ? : |