| line |
true |
false |
branch |
|
34
|
1 |
10 |
unless $form and $form->isa('CGI::FormBuilder') |
|
40
|
39 |
21 |
if defined $_ |
|
41
|
6 |
4 |
if scalar grep({ref $_ if defined $_;} $to, $from, $smtp, $cc, $bcc, $subject) |
|
44
|
2 |
1 |
unless $to and $from and $smtp |
|
47
|
1 |
0 |
unless $smtp eq 'localhost' or $smtp =~ / \A $CGI::FormBuilder::Mail::FormatMultiPart::RE{'net'}{'domain'}{-'nospace'} \z /msx or $smtp =~ / \A $CGI::FormBuilder::Mail::FormatMultiPart::RE{'net'}{'IPv4'} \z /msx |
|
59
|
0 |
0 |
unless $format |
|
60
|
0 |
0 |
if (ref $format or not grep({$_ eq $format;} 'plain', 'html', 'both')) |
|
66
|
0 |
0 |
if ($skip or defined $skipfields and ref $skipfields ne 'ARRAY') |
|
73
|
0 |
0 |
unless ($subject) |
|
85
|
0 |
0 |
if $format eq 'both' |
|
95
|
0 |
0 |
$parts > 1 ? : |
|
101
|
0 |
0 |
if defined $cc |
|
102
|
0 |
0 |
if defined $bcc |
|
104
|
0 |
0 |
if ($parts == 1) { } |
|
110
|
0 |
0 |
if ($format eq 'plain' or $format eq 'both') |
|
116
|
0 |
0 |
if ($format eq 'html' or $format eq 'both') |
|
128
|
0 |
0 |
if ($CGI::FormBuilder::Mail::FormatMultiPart::EVAL_ERROR or not $success) |
|
138
|
0 |
0 |
$$self{'format'} eq 'html' ? : |
|
166
|
0 |
0 |
if (defined $data_files) |
|
178
|
0 |
0 |
if (defined $data_env) |
|
211
|
0 |
0 |
if ($fmt and ref $fmt ne 'HASH') |
|
215
|
0 |
0 |
unless $fmt |
|
258
|
0 |
0 |
unless defined $css |
|
291
|
0 |
0 |
if (defined $data_files) |
|
297
|
0 |
0 |
if (defined $data_env) |
|
314
|
0 |
0 |
if exists $$self{'_skipfields_lookup'} |
|
359
|
0 |
0 |
if exists $$self{'_data_form'} |
|
374
|
0 |
0 |
if exists $$skipfields_lookup{$name} |
|
375
|
0 |
0 |
if $$fbflds{$name}->type eq 'file' |
|
378
|
0 |
0 |
unless $value |
|
390
|
0 |
0 |
if exists $$self{'_data_files'} |
|
398
|
0 |
0 |
if (scalar @file_field_names) |
|
404
|
0 |
0 |
unless defined $value |
|
415
|
0 |
0 |
if exists $$self{'_data_env'} |
|
418
|
0 |
0 |
if (scalar keys %ENV) |
|
434
|
0 |
0 |
if $$self{'_data_time'} |