line |
true |
false |
branch |
14
|
0 |
313 |
unless $$self =~ /^([^?\#]*)(?:\?([^\#]*))?(.*)$/s |
16
|
92 |
221 |
if (@_) |
19
|
77 |
15 |
if (defined $q) |
33
|
41 |
49 |
if (@_) |
37
|
17 |
24 |
if (ref $r eq 'ARRAY') { } |
|
4 |
20 |
elsif (ref $r eq 'HASH') { } |
45
|
2 |
39 |
if @_ % 2 |
49
|
0 |
88 |
unless defined $key |
52
|
5 |
83 |
ref $vals eq 'ARRAY' ? : |
54
|
92 |
3 |
if (defined $val) { } |
64
|
35 |
6 |
if (@query) { } |
65
|
32 |
3 |
unless ($delim) |
66
|
18 |
14 |
if $old and $old =~ /([&;])/ |
75
|
30 |
46 |
unless defined $old and length $old and defined wantarray |
76
|
1 |
45 |
unless $old =~ /=/ |
77
|
221 |
5 |
defined $_ ? : |
78
|
108 |
5 |
/=/ ? : |
86
|
8 |
4 |
if (@_) |
89
|
2 |
6 |
if @copy == 1 and ref $copy[0] eq "ARRAY" |
91
|
7 |
1 |
@copy ? : |
93
|
8 |
4 |
unless defined $old and defined wantarray |
94
|
2 |
2 |
if $old =~ /=/ |
105
|
1 |
11 |
if (@_ == 0) |
114
|
9 |
2 |
if (@_) |
117
|
3 |
14 |
ref $_ eq 'ARRAY' ? : |
122
|
5 |
4 |
if (@vals > @new_i) |
123
|
1 |
4 |
@new_i ? : |
128
|
2 |
7 |
if (@vals) |
136
|
5 |
4 |
@i ? : |
|
2 |
9 |
wantarray ? : |
142
|
0 |
4 |
ref $_ eq 'ARRAY' ? : |
154
|
3 |
5 |
if $old[$i] ne $key |
157
|
3 |
0 |
if @vals |
158
|
0 |
3 |
wantarray ? : |
164
|
1 |
1 |
if (@_) |
165
|
1 |
0 |
@_ == 1 ? : |
169
|
2 |
4 |
if (exists $hash{$k}) { } |
171
|
2 |
0 |
unless ref $_ eq "ARRAY" |