File Coverage

blib/lib/Email/Sender/Server/Client.pm
Criterion Covered Total %
statement 12 19 63.1
branch 0 4 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 29 58.6


line stmt bran cond sub pod time code
1             # ABSTRACT: Email Delivery Agent
2              
3             package Email::Sender::Server::Client;
4              
5 1     1   1028 use Email::Sender::Server::Manager;
  1         3  
  1         32  
6              
7 1     1   9 use Moo;
  1         2  
  1         6  
8 1     1   337 use utf8;
  1         2  
  1         10  
9 1     1   212 use Exporter 'import';
  1         2  
  1         425  
10              
11             our $VERSION = '1.000001'; # VERSION
12              
13             our @EXPORT_OK = qw(email);
14              
15              
16              
17             sub email {
18 0     0 1   my $input = pop;
19 0 0         die "Error preparing email: please provide arguments as a hashref"
20             unless 'HASH' eq ref $input;
21              
22 0 0         $ENV{ESS_DATA} = delete $input->{'path'} if $input->{'path'};
23              
24 0           my $manager = Email::Sender::Server::Manager->new;
25 0           my $result = $manager->create_work(%{$input});
  0            
26              
27 0           return $result;
28             }
29              
30             1;
31              
32             __END__