File Coverage

blib/lib/Starch/Plugin/SecureStateID.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	31	31	100.0

package Starch::Plugin::SecureStateID;
$Starch::Plugin::SecureStateID::VERSION = '0.001';
# ABSTRACT: use cryptographically secure random when making state IDs

use Math::Random::Secure ();
use Digest::SHA ();
use Scalar::Util qw( refaddr );
use Types::Standard -types;

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

with qw(
    Starch::Plugin::ForManager
);

has secure_state_id_sha => (
    is          => 'ro',
    isa         => Enum[1, 224, 256, 384, 512, 512224, 512256],
    default     => 256,
);

sub _secure_state_id_sha {
    my $self = shift;
    Digest::SHA->new($self->secure_state_id_sha);
}

my $counter = 0;
around state_id_seed => sub {
    shift; # we never call the original
    my ($self) = @_;
    return join( '', ++$counter, time, Math::Random::Secure::rand(), $$, {}, refaddr($self) )
};

around generate_state_id => sub {
    shift; # we never call the original
    my ($self) = @_;
    my $sha = $self->_secure_state_id_sha;
    $sha->add( $self->state_id_seed() );
    return $sha->hexdigest();
};

1;

__END__