Branch Coverage

blib/lib/URI/_query.pm
Criterion Covered Total %
branch 69 76 90.7


line true false branch
15 0 765 unless $$self =~ /^([^?\#]*)(?:\?([^\#]*))?(.*)$/s
17 110 655 if (@_)
20 89 21 if (defined $q)
34 55 462 if (@_)
38 24 31 if (_is_array($r)) { }
4 27 elsif (ref $r eq 'HASH') { }
46 4 51 if @_ % 2
50 0 106 unless defined $key
53 8 98 _is_array($vals) ? :
55 115 3 if (defined $val) { }
65 44 11 if (@query) { }
66 39 5 unless ($delim)
67 21 18 if $old and $old =~ /([&;])/
76 40 457 unless defined $old and length $old and defined wantarray
77 1 456 unless $old =~ /=/
78 2207 53 defined $_ ? :
79 1077 53 if (/=/) { }
87 12 4 if (@_)
90 4 8 if @copy == 1 and _is_array($copy[0])
92 10 2 @copy ? :
94 12 4 unless defined $old and defined wantarray
95 2 2 if $old =~ /=/
106 1 421 if (@_ == 0)
115 11 410 if (@_)
118 5 14 if (_is_array($_)) { }
123 5 6 if (@vals > @new_i)
124 1 4 @new_i ? :
129 2 9 if (@vals)
137 166 253 @i ? :
2 419 wantarray ? :
143 0 4 if (_is_array($_)) { }
155 3 5 if $old[$i] ne $key
158 3 0 if @vals
159 0 3 wantarray ? :
165 1 1 if (@_)
166 1 0 @_ == 1 ? :
170 2 4 if (exists $hash{$k}) { }
172 2 0 unless _is_array($_)