File Coverage

blib/lib/KiokuX/User/Password.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

#!/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__

=pod

=head1 NAME

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

=head1 SYNOPSIS

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

=head1 DESCRIPTION

This is a simple role for user objects that can check their own password.

=head1 METHODS

=over 4

=item check_password

Delegates to the L<Authen::Passphrase/match>.

=back

=head1 ATTRIBUTES

=over 4

=item password

Uses L<MooseX::Types::Authen::Passphrase> to provide coercions.

This is a required, read-write attribute.

=back

=cut

# ex: set sw=4 et: