Condition Coverage

blib/lib/Mail/Bulkmail.pm
Criterion Covered Total %
condition 38 160 23.7


and 3 conditions

line !l l&&!r l&&r condition
499 2 0 0 $self->headers_from_message and not $self->_extracted_headers_from_message
513 0 0 0 defined $last_header and defined $last_value
533 0 0 0 defined $last_header and defined $last_value
549 1 0 0 $self->message_from_file and !defined($self->_message_file_access_time) || -M $self->_message_file < $self->_message_file_access_time
1216 0 0 0 $class->server_class and @{$self->servers;} == 0
1456 1 0 0 $allow_groups and $email =~ /^$group$/o
1505 0 0 0 defined $value and $value =~ /list|bulk|junk/i
1689 0 0 1 $self->servers and @{$self->servers;}
1700 0 1 0 $new_idx == $old_idx and not $self->servers->[$new_idx]->_not_worthless
1878 0 0 0 $spaceprepend && !$one++
1945 2 0 0 $self->use_envelope and $self->_cached_headers
1971 0 0 1 defined $self->Subject and $self->Subject =~ /\S/
2010 0 0 0 defined $val and $val =~ /\S/
2059 1 0 1 $self->_cached_message and $self->_current_message
2125 0 0 0 $headers and $message
2177 0 0 0 $self->_cached_domain and $domain ne $self->_cached_domain
2187 0 0 0 $headers and $message
2263 0 0 0 $headers and $message

or 2 conditions

line l !l condition
911 0 23 $self->_Trusting->{'default'} || 0
917 0 0 $self->_Trusting->{'default'} || 0
978 0 0 $ob || {}
1035 0 1 $self->_Precedence || 'list'
1193 1 0 $class->SUPER::new('servers', [], '_headers', {}, '_duplicates', {}, '_waiting_message', 0, '_server_index', -1, @_) || (return undef)
1216 0 0 $init{'server_file'} || undef
1254 0 0 shift() || (return $self->_headers)
1541 0 0 shift() || (return $self->error('Cannot lowercase domain with no email address', 'MB009'))
1580 2 0 shift() || (return $self->error('Cannot set duplicate without email', 'MB010'))
1622 2 0 shift() || (return $self->undef('Cannot check duplicate without email', 'MB015'))
1651 4 0 shift() || (return $self->undef('Cannot check banned-ness without email', 'MB016'))
1750 7 0 shift() || (return $self->error('Cannot extract email w/o email', 'MB013'))
1854 1 1 shift() || 0
1855 1 1 shift() || 0
1897 0 0 shift() || ''
1898 0 0 shift() || ''
1900 0 0 shift() || 0
1992 1 0 $self->Precedence || 'list'
2062 1 0 $self->Message || (return $self->error('Cannot build message w/o message', 'MB016'))
2108 1 0 $self->nextServer || (return undef)
2136 0 0 $self->nextServer || (return undef)
2148 3 0 $self->preprocess($data) || (next)
2150 2 1 $self->extractEmail($data) || (next)
2204 0 0 $self->extractSender($data) || (return $self->error('Could not get valid sender/from address', 'MB019'))
2311 2 0 $passed_server || $self->nextServer || (return undef)
2315 2 0 $self->extractEmail($data) || (return undef)
2330 2 0 $self->extractSender($data) || (return $self->error('Could not get valid sender/from address', 'MB019'))
2345 2 0 $self->buildHeaders($data) || (return undef)
2347 2 0 $self->buildMessage($data) || (return undef)

or 3 conditions

line l !l&&r !l&&!r condition
459 0 0 0 shift @passed || $self->_message_file
461 0 0 0 not defined $self->_message_file_access_time or $file ne $self->_message_file
0 0 0 not defined $self->_message_file_access_time or $file ne $self->_message_file or -M $file < $self->_message_file_access_time
501 0 0 0 $passed[0] ||= $self->_Message
549 0 0 0 !defined($self->_message_file_access_time) || -M $self->_message_file < $self->_message_file_access_time
1026 0 0 0 $self->Trusting('precedence') or $self->_valid_precedence($precedence)
1052 1 0 0 shift() || time
1108 0 0 1 not defined $email or $self->Trusting('email')
0 1 0 not defined $email or $self->Trusting('email') or $self->valid_email($email, $allow_groups)
1457 7 0 0 $1 || $2
1505 0 0 0 $self->Trusting('precedence') or defined $value and $value =~ /list|bulk|junk/i
1779 0 3 0 $self->Sender || $self->From
1809 0 1 0 $self->ReplyTo || $self->From
1943 0 2 0 shift() || $self->_headers
2177 0 0 0 not $self->_cached_domain or $self->_cached_domain and $domain ne $self->_cached_domain
0 0 0 not $self->_cached_domain or $self->_cached_domain and $domain ne $self->_cached_domain or $server->reached_envelope_limit