| blib/lib/Mail/Bulkmail/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 78 | 15.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 493 | 0 | 0 | 0 | $self->envelope_limit and $self->_sent_messages_this_envelope >= $self->envelope_limit |
| 515 | 3 | 0 | 0 | $self->max_messages_while_awake and $self->_sent_messages_while_awake >= $self->max_messages_while_awake |
| 520 | 3 | 0 | 0 | $self->max_messages and $self->_sent_messages >= $self->max_messages |
| 3 | 0 | 0 | $self->max_messages_per_connection and $self->_sent_messages_this_connection >= $self->max_messages_per_connection | |
| 3 | 0 | 0 | $self->max_messages_per_robin and $self->_sent_messages_this_robin >= $self->max_messages_per_robin | |
| 619 | 0 | 0 | 0 | $s_tries-- and not CORE::socket($bulk, 2, 1, getprotobyname 'tcp') |
| 628 | 0 | 0 | 0 | not CORE::connect($bulk, $paddr) and $c_tries-- |
| 851 | 0 | 12 | 0 | $r and $r =~ /^4/ |
| 0 | 12 | 0 | $r and $r =~ /^221/ | |
| 962 | 0 | 0 | 0 | $_[0] and not ref $_[0] |
| 1002 | 0 | 0 | 0 | $$data{$attribute} and @{$$data{$attribute};} |
| line | l | !l | condition |
|---|---|---|---|
| 552 | 2 | 0 | (shift())->SUPER::new('_sent_messages', 0, '_sent_messages_this_robin', 0, '_sent_messages_this_connection', 0, '_sent_messages_while_awake', 0, '_sent_messages_this_envelope', 0, 'connected', 0, '_esmtp', {}, '_not_worthless', 5, @_) || (return undef) |
| 648 | 0 | 0 | <$bulk> || '' |
| 660 | 0 | 0 | <$bulk> || '' |
| 675 | 0 | 0 | <$bulk> || '' |
| 693 | 0 | 0 | <$bulk> || '' |
| 800 | 12 | 0 | shift() || (return $self->error('Cannot talk w/o speech', 'MBS006')) |
| 844 | 12 | 0 | <$bulk> || '' |
| 1005 | 0 | 0 | $class->new(%init) || (return undef) |
| 1014 | 0 | 0 | $class->new(%$init) || (return undef) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 649 | 0 | 0 | 0 | not $response or $response =~ /^[45]/ |
| 669 | 0 | 0 | 0 | not $response or $response =~ /^[45]/ |
| 683 | 0 | 0 | 0 | not $response or $response =~ /^[45]/ |
| 700 | 0 | 0 | 0 | not $r or $r =~ /^[45]/ |
| 802 | 0 | 0 | 12 | shift() || $self->talk_attempts |
| 851 | 0 | 0 | 12 | not $r or $r =~ /^5/ |
| 888 | 12 | 0 | 0 | $r =~ /^\d\d\d / or $r =~ /^\d\d\d$/ |
| 956 | 0 | 0 | 0 | ref $self || $self |
| 984 | 0 | 0 | 0 | $$conf{$class}{$attribute} ||= $$conf{$pkg}{$attribute} |