| line |
true |
false |
branch |
|
14
|
0 |
7 |
if ($_ eq '-upload') |
|
18
|
3 |
4 |
if /^-(\w+)$/ |
|
21
|
0 |
4 |
if $is_upload and @flags |
|
33
|
0 |
6 |
if @_ |
|
43
|
0 |
4 |
if @_ |
|
46
|
3 |
1 |
@flags ? : |
|
|
0 |
4 |
$is_upload ? : |
|
55
|
0 |
0 |
unless defined CGI::param($param) |
|
71
|
5 |
5 |
if (defined(my $value = $$self{$field})) { } |
|
72
|
0 |
5 |
ref $value ? : |
|
77
|
5 |
0 |
defined CGI::param($field) ? : |
|
84
|
0 |
5 |
@values > 1 ? : |
|
91
|
8 |
0 |
defined $values[0] ? : |
|
|
2 |
8 |
wantarray ? : |
|
97
|
0 |
0 |
unless my $handle = CGI::upload($_[0]) |
|
99
|
0 |
0 |
unless CGI::uploadInfo($handle) |
|
112
|
2 |
0 |
if (length $_[0]) |
|
115
|
2 |
0 |
unless $_[0] =~ /\n\z/ |