Branch Coverage

blib/lib/Fsdb/Filter/dbformmail.pm
Criterion Covered Total %
branch 0 42 0.0


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'})