Branch Coverage

blib/lib/CGI/Application/URIMapping.pm
Criterion Covered Total %
branch 56 78 71.7


line true false branch
41 1 3 unless ref $entry
49 3 1 unless ($rm = $$entry{'rm'})
50 3 0 unless (ref $$entry{'path'})
51 3 0 if (split(m[/:], $$entry{'path'}, 2))[0] =~ m[([^/]+)/?$]
55 0 4 unless $rm
56 0 4 if (ref $$entry{'path'} eq 'ARRAY') { }
58 0 0 unless @{$$entry{'path'};} and @{$$entry{'path'};} % 2 == 0
95 4 0 unless ($app_init_map{$app})
128 5 1 if (@_ == 1)
131 2 3 if defined $v and $v ne ''
146 0 15 unless $mapping
154 1 7 if ref $args eq 'HASH'
172 0 0 if _validate_uri($mapping, $app, $$args{'extra'} || []) == 0
194 1 1 if ref $_
207 0 15 unless my $mapping = ($uri_table{ref $self or $self} ||= {})->{"$app/$rm"}
216 4 4 if ref $args eq 'ARRAY'
228 13 2 if (ref $h eq 'HASH') { }
229 5 8 if exists $$h{$n}
236 2 0 if $@
238 2 0 wantarray ? :
2 0 if @v
251 8 0 if $host eq '*'
255 6 8 if ($p =~ /^:(.*?)(\??)$/) { }
258 3 3 unless (@v)
259 1 2 unless $optional
263 0 3 if @v != 1
275 0 4 if ($$p{'omit'})
276 0 0 if $v eq $$p{'omit'}
283 3 4 if @qp
295 0 6 unless $meth eq 'GET' or $meth eq 'HEAD'
302 9 1 if (my $ref = $$param_map{$n}) { }
303 1 8 if $$ref{'rank'} < 0
305 1 7 if $$ref{'rank'} < $max_rank
307 3 4 if (my $omit = $$ref{'omit'})
309 1 2 if $v eq $omit
315 1 0 unless $$extra{$n}
339 6 1 unless ref $p
353 5 3 if ($e =~ /^:(.*?)\??$/)
371 0 15 $1 ? :