Branch Coverage

blib/lib/CGI/Upload.pm
Criterion Covered Total %
branch 21 28 75.0


line true false branch
31 4 15 unless (grep {$property eq $_;} @properties)
39 5 10 unless defined $cgi->param($param)
46 5 5 unless exists $$self{'_CACHE'}
66 1 4 if $browser->windows
67 0 5 if $browser->mac
74 0 5 unless $file[0]
89 0 5 if $binmode
112 0 5 length $mime_magic ? :
144 0 5 if defined $magic
152 1 7 if ($args and 'HASH' ne ref $args)
158 3 4 if ($args and $$args{'query'})
162 1 6 if (ref $module) { }
173 0 5 if ('CGI::Simple' eq $module)
179 0 6 if ($module eq 'CGI::Simple' and $CGI::Simple::VERSION < '0.075')