| line |
true |
false |
branch |
|
31
|
2 |
34 |
if (ref $proto) { } |
|
|
32 |
2 |
elsif ($proto) { } |
|
50
|
12 |
24 |
if ($#_ == 0) { } |
|
|
8 |
16 |
elsif ($#_ > 0) { } |
|
53
|
2 |
6 |
if (0 == $#_ % 2) |
|
61
|
4 |
30 |
if (ref $parms ne 'HASH') |
|
68
|
6 |
14 |
unless (exists $self->{$package}{'settings'}{$lc_parm_name}) |
|
85
|
4 |
24 |
if (1 < @_) |
|
87
|
1 |
3 |
if ($n_parms % 2 == 1) |
|
95
|
1 |
23 |
if (@_ == 1 and ref $_[0] eq 'HASH') |
|
102
|
8 |
15 |
if ($#_ == -1) { } |
|
106
|
13 |
2 |
if (defined $self->{$package}{'field'}{$fieldname}) |
|
112
|
17 |
6 |
if (wantarray) { } |
|
150
|
1 |
256 |
unless defined $line |
|
161
|
1 |
357 |
unless defined $line |
|
176
|
10 |
14 |
if (1 == $CGI::PathInfo::_mod_perl) { } |
|
|
0 |
14 |
elsif (2 == $CGI::PathInfo::_mod_perl) { } |
|
181
|
13 |
1 |
if defined $ENV{'PATH_INFO'} |
|
201
|
20 |
4 |
if ($settings->{'stripleadingslash'}) |
|
202
|
20 |
4 |
if ($settings->{'striptrailingslash'}) |
|
209
|
22 |
2 |
if ($buffer) |
|
221
|
24 |
50 |
unless defined $data |
|
227
|
44 |
6 |
unless (defined $self->{$package}{'field'}{$name}{'count'}) |
|
256
|
2 |
2 |
if (not $data_type) { } |
|
|
1 |
1 |
elsif ($data_type eq 'ARRAY') { } |
|
266
|
1 |
2 |
unless (defined $self->{$package}{'field'}{$name}{'count'}) |