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
336 0 0 0 $args{'recmail'} and emailsyntax($args{'recmail'})
339 0 0 0 do { not -d $args{'tempdir'} && -w _ && -x _ } && do { $error .= "'$args{'tempdir'}' is not a writable directory.\n" }
340 0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _
0 0 0 -d $CGITempFile::TMPDIRECTORY and -w _ and -x _
347 0 0 0 $args{$_} and not -f $args{$_}
493 0 0 0 $ENV{'HTTP_USER_AGENT'} && $ENV{'HTTP_USER_AGENT'} =~ m[Mozilla/[34]] && !($ENV{'HTTP_USER_AGENT'} =~ /MSIE|Opera/)
651 0 0 0 $args->{'fixed'} == 1 and $num_quotes
655 0 0 0 _flowed($line) and @input
0 0 0 _flowed($line) and @input and _num_quotes($input[0]) == $num_quotes
666 0 0 0 defined $line && length $line
674 0 0 0 defined $line and length $line
709 0 0 0 $ENV{'HTTP_COOKIE'} and ($cookie) = $ENV{'HTTP_COOKIE'} =~ /\bContactForm_time=(\d+)/
733 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600
749 0 0 0 $filter and $msg =~ /$filter/

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
399 0 0 0 $in->{'subject'} or $defaultsubject
477 0 0 0 $0 || $ENV{'SCRIPT_FILENAME'}
485 0 0 0 $in->{'subject'} ||= $args->{'subject'}
630 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
651 0 0 0 not $args->{'fixed'} or $args->{'fixed'} == 1 and $num_quotes
682 0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/
0 0 0 $line =~ /^(.{$min,$opt1}) (.*)/ or $line =~ /^(.{$min,$max1}) (.*)/ or $line =~ /^(.{$min,}) (.*)/
707 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
717 0 0 0 $cookie + 7200 < $time or not grep(($cookie eq $_), @timestamps)
726 0 0 0 $tempdir ||= $CGITempFile::TMPDIRECTORY
733 0 0 0 @timestamps == 2 and $time > $timestamps[0] + 3600 or @timestamps == 1
758 0 0 0 $args->{'tempdir'} || $CGITempFile::TMPDIRECTORY