| line |
true |
false |
branch |
|
89
|
5 |
11 |
if (defined $time) { } |
|
94
|
6 |
10 |
if defined $old |
|
101
|
7 |
13 |
if @_ |
|
102
|
0 |
20 |
if ref $ct eq 'ARRAY' |
|
103
|
4 |
16 |
unless defined $ct and length $ct |
|
109
|
2 |
14 |
wantarray ? : |
|
120
|
2 |
1 |
if (s/^\s*(=*[^\s=;,]+)//) { } |
|
|
0 |
1 |
elsif (s/^\s*,//) { } |
|
|
1 |
0 |
elsif (s/^\s*;// or s/^\s+//) { } |
|
123
|
1 |
1 |
if (s/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) { } |
|
|
0 |
1 |
elsif (s/^\s*=\s*([^;,\s]*)//) { } |
|
140
|
0 |
0 |
if @cur |
|
150
|
1 |
1 |
if @cur |
|
164
|
0 |
2 |
if ref $h |
|
165
|
1 |
1 |
unless defined $h |
|
167
|
1 |
1 |
if (@v) |
|
170
|
1 |
0 |
if ($ct) |
|
174
|
1 |
0 |
if ($charset) |
|
177
|
0 |
1 |
if $charset eq '' |
|
179
|
0 |
1 |
if wantarray |
|
182
|
0 |
1 |
if wantarray |
|
188
|
2 |
6 |
if (@_ and $_[0] =~ /#/) |
|
192
|
1 |
1 |
if (ref $uri) { } |
|
216
|
4 |
5 |
if (defined $user) |
|
217
|
1 |
3 |
if $user =~ /:/ |
|
219
|
1 |
2 |
unless defined $passwd |
|
223
|
5 |
3 |
if (defined $old and $old =~ s/^\s*Basic\s+//) |
|
225
|
2 |
3 |
unless wantarray |
|
254
|
0 |
2 |
if $ct eq 'text/xml' |
|
255
|
0 |
2 |
if $ct eq 'application/xml' |
|
256
|
1 |
1 |
if $ct =~ /\+xml$/ |