File Coverage

blib/lib/Starch/Plugin/LogStoreExceptions.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Starch::Plugin::LogStoreExceptions;
our $VERSION = '0.14';

use Try::Tiny;

use Moo::Role;
use strictures 2;
use namespace::clean;

with 'Starch::Plugin::ForStore';

foreach my $method (qw( set get remove )) {
    around $method => sub{
        my $orig = shift;
        my $self = shift;

        my @args = @_;

        return try {
            return $self->$orig( @args );
        }
        catch {
            $self->log->errorf(
                'Starch store %s errored when %s was called: %s',
                $self->short_store_class_name(), $method, $_,
            );
            return {
                $self->manager->no_store_state_key() => 1,
            } if $method eq 'get';
            return;
        };
    };
}

1;
__END__