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
337 0 0 0 $args{'recmail'} and emailsyntax($args{'recmail'})
340 0 0 0 do { not -d $args{'tempdir'} && -w _ && -x _ } && do { $error .= "'$args{'tempdir'}' is not a writable directory.\n" }
341 0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _
0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _ and -x _
348 0 0 0 $args{$_} and not -f $args{$_}
494 0 0 0 $ENV{'HTTP_USER_AGENT'} && $ENV{'HTTP_USER_AGENT'} =~ m[Mozilla/[34]] && !($ENV{'HTTP_USER_AGENT'} =~ /MSIE|Opera/)
652 0 0 0 $args->{'fixed'} == 1 and $num_quotes
656 0 0 0 _flowed($line) and @input
0 0 0 _flowed($line) and @input and _num_quotes($input[0]) == $num_quotes
667 0 0 0 defined $line && length $line
675 0 0 0 defined $line and length $line
710 0 0 0 $ENV{'HTTP_COOKIE'} and ($cookie) = $ENV{'HTTP_COOKIE'} =~ /\bContactForm_time=(\d+)/
734 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600
750 0 0 0 $filter and $msg =~ /$filter/

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
400 0 0 0 $in->{'subject'} or $defaultsubject
478 0 0 0 $0 || $ENV{'SCRIPT_FILENAME'}
486 0 0 0 $in->{'subject'} ||= $args->{'subject'}
631 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
652 0 0 0 not $args->{'fixed'} or $args->{'fixed'} == 1 and $num_quotes
683 0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/
0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/ or $line =~ /^(.{$min,}) (.*)/
708 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
718 0 0 0 $cookie + 7200 < $time or not grep(($cookie eq $_), @timestamps)
727 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
734 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600 or @timestamps == 1
759 0 0 0 $args->{'tempdir'} || $CGITempFile::TMPDIRECTORY