File Coverage

lib/Mail/DMARC/Result/Reason.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	8	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	3	66.6
total	36	39	92.3

package Mail::DMARC::Result::Reason;
our $VERSION = '1.20210927';
use strict;
use warnings;

use Carp;

sub new {
    my ( $class, @args ) = @_;
    croak "invalid arguments" if @args % 2;
    my %args = @args;
    my $self = bless {}, $class;
    foreach my $key ( keys %args ) {
        $self->$key( $args{$key} );
    }
    return $self;
}

sub type {
    return $_[0]->{type} if 1 == scalar @_;
    croak "invalid type"
        if 0 == grep {/^$_[1]$/ix}
        qw/ forwarded sampled_out trusted_forwarder
            mailing_list local_policy other /;
    return $_[0]->{type} = $_[1];
}

sub comment {
    return $_[0]->{comment} if 1 == scalar @_;

    # comment is optional and requires no validation
    return $_[0]->{comment} = $_[1];
}

1;

__END__