| line |
true |
false |
branch |
|
214
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage(-'verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'log!', \$self->{'_logprog'}, 'm|mechanism=s', \$self->{'_mechanism'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
) |
|
215
|
0 |
0 |
if ($#argv >= 0) |
|
217
|
0 |
0 |
if defined $self->{'_format_file'} |
|
234
|
0 |
0 |
unless $self->{'_mechanism'} eq 'Mail' or $self->{'_mechanism'} eq 'sendmail' |
|
236
|
0 |
0 |
unless defined $self->{'_format_file'} |
|
255
|
0 |
0 |
unless open FORM, '<' . $self->{'_format_file'} |
|
263
|
0 |
0 |
unless grep /^To:/i, @form |
|
270
|
0 |
0 |
if ($#hits == -1) |
|
275
|
0 |
0 |
unless defined $end_of_form_marker |
|
281
|
0 |
0 |
if $self->{'_debug'} |
|
292
|
0 |
0 |
if $@ |
|
301
|
0 |
0 |
if ($in_body) |
|
305
|
0 |
0 |
if (/^\s*$/) |
|
310
|
0 |
0 |
if (/^$field_regexp:\s*(.*)$/i) |
|
313
|
0 |
0 |
if defined $fields{$key} |
|
318
|
0 |
0 |
unless defined $fields{'to'} |
|
325
|
0 |
0 |
if ($self->{'_mechanism'} eq 'sendmail') { } |
|
|
0 |
0 |
elsif ($self->{'_mechanism'} eq 'Mail') { } |
|
328
|
0 |
0 |
defined $fields{'cc'} ? : |
|
329
|
0 |
0 |
defined $fields{'subject'} ? : |
|
348
|
0 |
0 |
if (defined $self->{'_delay_comments'}) |