File Coverage

blib/lib/Email/Sender/Server.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition 0 5 0.0
subroutine 1 2 50.0
pod 1 1 100.0
total 5 14 35.7


line stmt bran cond sub pod time code
1             # ABSTRACT: Eventual Email Delivery System
2              
3             package Email::Sender::Server;
4              
5 1     1   41747 use Email::Sender::Server::Controller;
  1         4  
  1         140  
6              
7             our $VERSION = '1.000001'; # VERSION
8              
9              
10              
11             sub run {
12 0   0 0 1   my ($command, @arguments) = @_ || @ARGV;
13              
14 0   0       my $controller = Email::Sender::Server::Controller->new(
15             command => $command || 'help',
16             arguments => [@arguments]
17             );
18              
19 0           $controller->execute_command;
20             }
21              
22             1;
23              
24             __END__