File Coverage

lib/Mail/DMARC/Report/Aggregate/Record/Identifiers.pm
Criterion Covered Total %
statement 22 22 100.0
branch 7 8 87.5
condition n/a
subroutine 7 7 100.0
pod 0 4 0.0
total 36 41 87.8


line stmt bran cond sub pod time code
1             package Mail::DMARC::Report::Aggregate::Record::Identifiers;
2             our $VERSION = '1.20230215';
3 12     12   91 use strict;
  12         25  
  12         395  
4 12     12   70 use warnings;
  12         26  
  12         311  
5              
6 12     12   73 use Carp;
  12         33  
  12         3609  
7              
8             sub new {
9 17     17 0 66 my ( $class, @args ) = @_;
10 17 50       78 croak "invalid arguments" if @args % 2;
11 17         77 my %args = @args;
12 17         47 my $self = bless {}, $class;
13 17         69 foreach my $key ( keys %args ) {
14 45         180 $self->$key( $args{$key} );
15             }
16 17         120 return $self;
17             }
18              
19             sub envelope_to {
20 29 100   29 0 144 return $_[0]->{envelope_to} if 1 == scalar @_;
21 15         64 return $_[0]->{envelope_to} = $_[1];
22             }
23              
24             sub envelope_from {
25 30 100   30 0 157 return $_[0]->{envelope_from} if 1 == scalar @_;
26 16         61 return $_[0]->{envelope_from} = $_[1];
27             }
28              
29             sub header_from {
30 31 100   31 0 200 return $_[0]->{header_from} if 1 == scalar @_;
31 17         91 return $_[0]->{header_from} = $_[1];
32             }
33              
34             1;
35              
36             __END__