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   74680 use strict;
  1         4  
  1         35  
4 1     1   5 use warnings;
  1         2  
  1         38  
5 1     1   510 use Email::Sender::Transport::Test;
  1         119661  
  1         155  
6              
7             sub new {
8 5     5 0 33 my $class = shift;
9 5         10 my $self = {};
10 5         15 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 23 return $global_transport;
17             }
18             }
19              
20             sub get_transports_for {
21 1     1 0 4 my ( $self,$args ) = @_;
22 1         3 my @transports;
23 1         5 push @transports, $self->get_test_transport;
24 1         4 return @transports;
25             }
26              
27             1;