KiokuX::User::Password - A role for users with a password attribute

    with qw(KiokuX::User::Password);

#!/usr/bin/perl

package KiokuX::User::Password;
use MooseX::Role::Parameterized;

use MooseX::Types::Authen::Passphrase qw(Passphrase);

use KiokuX::User::Util qw(crypt_password);

use namespace::clean -except => 'meta';

parameter password_attribute => (
    isa     => 'Str',
    default => 'password',
);

role {
    my ($p) = @_;
    my $pw_attr = $p->password_attribute;

    has $pw_attr => (
        isa      => Passphrase,
        is       => 'rw',
        coerce   => 1,
        required => 1,
        #handles => { check_password => "match" },
    );

    method check_password => sub {
        my $self = shift;
        $self->$pw_attr->match(@_);
    };

    method set_password => sub {
        my ( $self, @args ) = @_;
        $self->$pw_attr( crypt_password(@args) );
    };
};

__PACKAGE__

__END__

# ex: set sw=4 et: