File Coverage

blib/lib/Starch/Plugin/RenewExpiration/State.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Starch::Plugin::RenewExpiration::State;
our $VERSION = '0.14';

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

with 'Starch::Plugin::ForState';

around save => sub{
    my $orig = shift;
    my $self = shift;

    my $manager = $self->manager();
    my $thresh = $manager->renew_threshold();

    my $variance = $manager->renew_variance();
    if ($variance > 0) {
        my $delta = int($thresh * $variance);
        $thresh = ($thresh - $delta) + int( rand($delta+1) );
    }

    $self->mark_dirty() if $self->modified() + $thresh <= time();

    return $self->$orig( @_ );
};

1;