File Coverage

blib/lib/Email/Blaster/StandAlone.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Email::Blaster::StandAlone;

use strict;
use warnings 'all';
use base 'Email::Blaster';


#==============================================================================
sub find_new_transmission
{
  my ($s) = @_;

  my $sth = Email::Blaster::Transmission->db_Main->prepare(<<"SQL");
SELECT *
FROM transmissions
WHERE is_queued = 1
AND (
  is_started = 0
)
OR (
  is_started = 1
  AND is_completed = 0
)
ORDER BY queued_on DESC
LIMIT 0, 1
SQL
  $sth->execute();
  return unless my ($trans) = Email::Blaster::Transmission->sth_to_objects( $sth );

  return $trans;
}# end find_new_transmission()

1;# return true:

__END__