package My::TransmissionEndHandler;
use strict;
use warnings 'all';
use base 'Email::Blaster::TransmissionEndHandler';
#==============================================================================
sub run
{
my ($s, $event) = @_;
$ENV{TRANS_END_OK} = 1;
warn $event->transmission_id . ": END";
}# end run()
1;# return true: