File Coverage

blib/lib/Nitesi/Account/Password.pm

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

package Nitesi::Account::Password;

use strict;
use warnings;

use Crypt::Password 0.23 ();
use Data::SimplePassword;

use Moo;

=head1 NAME

Nitesi::Account::Password - Password class for Nitesi Shop Machine

=head1 DESCRIPTION

Allows to create random passwords, password hashes from cleartext
passwords and password checks.

=head1 METHODS

=head2 check

Checks password retrieved from user against the password hash.

    $crypt->check($hash_from_database, $user_input);

=cut

sub check {
    my ($self, $hash, $password) = @_;

    Crypt::Password::check_password($hash, $password);
}

=head2 password

Creates password hash from plain text password.

    $crypt->password('nevairbe');

Use specific algorithm (default is sha512):

    $crypt->password('nevairbe', 'md5');

=cut

sub password {
    my ($self, $password, $algorithm, $salt);

    $self = shift;
    $password = shift;

    if (@_) {
	# got algorithm
	$algorithm = shift;
    }
    else {
	$algorithm = 'sha512';
    }

    $password = Crypt::Password::password($password, undef, $algorithm);

    return $password;
}

=head2 make_password

Creates random password.


B

	$crypt->make_password();

=cut

sub make_password {
    my $self = shift;

    $self->{generator} ||= Data::SimplePassword->new;
    $self->{generator}->make_password;
}

=head1 AUTHOR

Stefan Hornburg (Racke),

=head1 LICENSE AND COPYRIGHT

Copyright 2011-2013 Stefan Hornburg (Racke) .

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut


1;