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