Condition Coverage

blib/lib/Mail/Internet.pm
Criterion Covered Total %
condition 6 69 8.7


and 3 conditions

line !l l&&!r l&&r condition
112 0 0 0 $self->print_header($fd) and print $fd "\n"
217 0 0 0 $i++ < $nlines and $start--
257 0 0 0 @$body and $body->[0] =~ /^\s*$/
258 0 0 0 @$body and $body->[-1] =~ /^\s*$/
280 0 0 0 $subject =~ /\S+/ and not $subject =~ /Re:/i
373 0 0 0 defined $arg{'Keep'} and ref $arg{'Keep'} eq 'ARRAY'
380 0 0 0 defined $arg{'Exclude'} and ref $arg{'Exclude'} eq 'ARRAY'
450 0 0 0 $smtp->mail($envelope) && $smtp->to(@addr) && $smtp->data(join('', @{$head->header;}, "\n", @{$self->body;}))
489 0 0 0 ref $host and UNIVERSAL::isa($host, 'Net::NNTP')

or 2 conditions

line l !l condition
34 0 3 delete $opt{'FoldLength'} || 79
84 2 0 $self->{'mail_inet_body'} || []
97 6 0 $self->{'mail_inet_body'} ||= []
110 0 0 shift() || \*STDOUT
122 0 0 shift() || \*STDOUT
213 0 0 shift() || 10
279 0 0 $self->get('Subject') || ''
286 0 0 $self->get('Reply-To') || $self->get('From') || $self->get('Return-Path') || ''
300 0 0 $arg{'Indent'} || '>'
309 0 0 substr($hash{'l'}, 0, 1) || ''
311 0 0 $name || ''
321 0 0 $ENV{'MAILADDRESSES'} || ''
339 0 0 $self->get('References') || ''
476 0 0 $self->get('Newsgroups') || ''
539 0 0 eval { do { local $SIG{'__DIE__'}; (getpwuid $>)[6] } } || $ENV{'NAME'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
27 0 3 0 ref $call || $call
104 7 3 0 +(shift())->{'mail_inet_head'} ||= 'Mail::Header'->new
396 0 0 0 $opt{'MailFrom'} || &mailaddress()
410 0 0 0 UNIVERSAL::isa($host, 'Net::SMTP') or UNIVERSAL::isa($host, 'Net::SMTP::SSL')