| line |
true |
false |
branch |
|
25
|
3 |
0 |
unless grep {$_ =~ /$boundary/;} @{$content;} |
|
31
|
1 |
2 |
if (defined $headers->{'content-type'}) |
|
32
|
1 |
0 |
if ($headers->{'content-type'} =~ m[^(.*multipart/[^;]+)(.*)$]) |
|
46
|
5 |
9 |
ref $data eq 'HASH' ? : |
|
47
|
1 |
11 |
unless @params % 2 == 0 |
|
53
|
1 |
13 |
if (ref $value eq 'ARRAY') { } |
|
61
|
4 |
9 |
if (ref $value and ref $value eq 'HASH') |
|
62
|
4 |
0 |
if ($value->{'content'}) |
|
66
|
2 |
2 |
if ($value->{'filename'}) { } |
|
75
|
3 |
1 |
if ($value->{'content_type'}) |
|
98
|
0 |
1 |
unless @_ == 3 or @_ == 4 and ref $args eq 'HASH' |
|
101
|
0 |
3 |
unless ref $data eq 'HASH' or ref $data eq 'ARRAY' |
|
105
|
2 |
2 |
unless $args->{'headers'} |