File Coverage

lib/Mail/DMARC/Report/Store.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	4	6	66.6
condition			n/a
subroutine	9	11	81.8
pod	0	6	0.0
total	44	57	77.1

package Mail::DMARC::Report::Store;
our $VERSION = '1.20230215';
use strict;
use warnings;

use Carp;

use parent 'Mail::DMARC::Base';

sub delete_report {
    my $self = shift;
    return $self->backend->delete_report(@_);
}

sub error {
    my $self = shift;
    return $self->backend->insert_error(@_);
}

sub retrieve {
    my $self = shift;
    return $self->backend->retrieve(@_);
}

sub next_todo {
    my $self = shift;
    return $self->backend->next_todo(@_);
}

sub retrieve_todo {
    my $self = shift;
    return $self->backend->retrieve_todo(@_);
}

sub backend {
    my $self    = shift;
    my $backend = $self->config->{report_store}{backend};

    croak "no backend defined?!" if !$backend;

    return $self->{$backend} if ref $self->{$backend};
    my $module = "Mail::DMARC::Report::Store::$backend";
    eval "use $module";    ## no critic (Eval)
    if ($@) {
        croak "Unable to load backend $backend: $@\n";
    }

    return $self->{$backend} = $module->new;
}

1;

__END__