File Coverage

blib/lib/MooX/Role/CryptedPassword.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package MooX::Role::CryptedPassword;
use Moo::Role;

our $VERSION = '0.01_02';

use Crypt::CBC;
use constant CIPHER => 'Rijndael';
use constant CIPHER_KEY => 'BlahBlahBlahBlah';

has password => (
    is       => 'ro',
    isa      => sub { !ref $_[0] },
    required => 1
);

around BUILDARGS => sub {
    my $buildargs = shift;
    my $class = shift;
    my %args = @_;

    if (my $pwfile = delete($args{password_file})) {
        my $cipher_name = delete($args{cipher})     || CIPHER;
        my $cipher_key  = delete($args{cipher_key}) || CIPHER_KEY;

        use autodie;
        open my $fh, '<:raw', $pwfile;
        my $crypted_password = do {local $/; <$fh>};
        close($fh);

        my $cipher = Crypt::CBC->new(
            -cipher => $cipher_name,
            -key    => $cipher_key,
            -pbkdf => 'pbkdf2',
        );
        $args{password} = $cipher->decrypt($crypted_password);
    }

    $class->$buildargs(%args);
};

1;

__END__