| line |
true |
false |
branch |
|
26
|
9 |
6 |
$format eq 'cookie' ? :
|
|
36
|
0 |
12 |
unless defined $$opt{'name'}
|
|
39
|
12 |
0 |
defined $$opt{'value'} ? :
|
|
41
|
0 |
12 |
defined $$opt{'path'} ? :
|
|
42
|
9 |
3 |
defined $$opt{'expires'} && $$opt{'expires'} =~ /\A\d+\z/msx ? :
|
|
46
|
2 |
10 |
if defined $domain
|
|
48
|
9 |
3 |
if defined $expires
|
|
49
|
0 |
12 |
if $$opt{'secure'}
|
|
63
|
38 |
0 |
if (defined $buffer)
|
|
66
|
0 |
49 |
!defined($name) ? :
|
|
67
|
4 |
45 |
!defined($data) ? :
|
|
82
|
0 |
2 |
if ($bdry =~ m[[^A-Za-z0-9',-./:=]]s)
|
|
100
|
6 |
10 |
unless defined $pair
|
|
103
|
0 |
10 |
if $pair eq '--'
|
|
104
|
4 |
6 |
unless $pair
|
|
115
|
2 |
6 |
if ($fname =~ /^Content-Type$/io)
|
|
118
|
6 |
2 |
if ($fname =~ /^Content-Disposition$/io)
|
|
121
|
6 |
8 |
if $dispitem eq 'form-data'
|
|
125
|
6 |
2 |
if $dispfield eq 'name'
|
|
126
|
2 |
6 |
if $dispfield eq 'filename'
|
|
130
|
0 |
6 |
unless defined $name
|
|
131
|
0 |
6 |
unless defined $data
|
|
145
|
0 |
10 |
unless defined $s
|
|
146
|
2 |
8 |
if ($s =~ / \s | ' | \A\z /msx)
|
|
155
|
1 |
11 |
if ($s =~ s/\A'(.*)'\z/$1/msx)
|
|
167
|
19 |
3 |
unless defined $s
|
|
173
|
0 |
3 |
unless $s =~ /\G\z/gmsx
|
|
179
|
3 |
19 |
$w && $#{$w;} % 2 ? :
|