File Coverage

lib/Mail/DMARC/Test/Transport.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Mail::DMARC::Test::Transport;
2             # VERSION
3 1     1   72596 use strict;
  1         4  
  1         36  
4 1     1   6 use warnings;
  1         2  
  1         39  
5 1     1   501 use Email::Sender::Transport::Test;
  1         119805  
  1         149  
6              
7             sub new {
8 5     5 0 33 my $class = shift;
9 5         16 my $self = {};
10 5         18 return bless $self, $class;
11             };
12              
13             {
14             my $global_transport = Email::Sender::Transport::Test->new;
15             sub get_test_transport {
16 2     2 0 22 return $global_transport;
17             }
18             }
19              
20             sub get_transports_for {
21 1     1 0 6 my ( $self,$args ) = @_;
22 1         4 my @transports;
23 1         5 push @transports, $self->get_test_transport;
24 1         5 return @transports;
25             }
26              
27             1;