Branch Coverage

lib/CGI/PathInfo.pm
Criterion Covered Total %
branch 51 52 98.0


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'})