Condition Coverage

blib/lib/CGI/ContactForm.pm
Criterion Covered Total %
condition 0 92 0.0


and 3 conditions

line !l l&&!r l&&r condition
338 0 0 0 $args{'recmail'} and emailsyntax($args{'recmail'})
341 0 0 0 do { not -d $args{'tempdir'} && -w _ && -x _ } && do { $error .= "'$args{'tempdir'}' is not a writable directory.\n" }
342 0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _
0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _ and -x _
349 0 0 0 $args{$_} and not -f $args{$_}
495 0 0 0 $ENV{'HTTP_USER_AGENT'} && $ENV{'HTTP_USER_AGENT'} =~ m[Mozilla/[34]] && !($ENV{'HTTP_USER_AGENT'} =~ /MSIE|Opera/)
653 0 0 0 $args->{'fixed'} == 1 and $num_quotes
657 0 0 0 _flowed($line) and @input
0 0 0 _flowed($line) and @input and _num_quotes($input[0]) == $num_quotes
668 0 0 0 defined $line && length $line
676 0 0 0 defined $line and length $line
711 0 0 0 $ENV{'HTTP_COOKIE'} and ($cookie) = $ENV{'HTTP_COOKIE'} =~ /\bContactForm_time=(\d+)/
735 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600
751 0 0 0 $filter and $msg =~ /$filter/

or 2 conditions

line l !l condition
490 0 0 $error->{$_} ||= ''
567 0 0 shift() || (return \'')
641 0 0 $args->{'max_length'} ||= 79
642 0 0 $args->{'opt_length'} ||= 72

or 3 conditions

line l !l&&r !l&&!r condition
401 0 0 0 $in->{'subject'} or $defaultsubject
479 0 0 0 $0 || $ENV{'SCRIPT_FILENAME'}
487 0 0 0 $in->{'subject'} ||= $args->{'subject'}
632 0 0 0 $text =~ /^ / or $text =~ /^>/
0 0 0 $text =~ /^ / or $text =~ /^>/ or $text =~ /^From /
0 0 0 $text =~ /^ / or $text =~ /^>/ or $text =~ /^From / or $num_quotes > 0
653 0 0 0 not $args->{'fixed'} or $args->{'fixed'} == 1 and $num_quotes
684 0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/
0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/ or $line =~ /^(.{$min,}) (.*)/
709 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
719 0 0 0 $cookie + 7200 < $time or not grep(($cookie eq $_), @timestamps)
728 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
735 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600 or @timestamps == 1
760 0 0 0 $args->{'tempdir'} || $CGITempFile::TMPDIRECTORY