File Coverage

blib/lib/Crypt/XkcdPassword.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	7	8	87.5
condition	3	3	100.0
subroutine	11	12	91.6
pod	1	1	100.0
total	64	67	95.5

use 5.008;
use strict;
use warnings;
use utf8;

package Crypt::XkcdPassword;

BEGIN {
	$Crypt::XkcdPassword::AUTHORITY = "cpan:TOBYINK";
	$Crypt::XkcdPassword::VERSION   = "0.009";
}

use match::simple            qw( match );
use Carp                     qw( carp croak );
use Module::Runtime          qw( require_module );
use Types::Standard 1.000000 qw( CodeRef Str ConsumerOf ArrayRef );

use Moo 1.006000;

has rng => (
	is      => "rw",
	isa     => CodeRef,
	default => sub { sub { int(rand($_[0])) } },
);

my $wordrole = 'Crypt::XkcdPassword::Words';

has words => (
	is      => "rw",
	isa     => ConsumerOf->of($wordrole)->plus_coercions(
		Str,      sub { require_module("$wordrole\::$_")->new },
		ArrayRef, sub { my ($c, @a) = @$_; require_module("$wordrole\::$c")->new(@a) },
	),
	coerce  => 1,
	default => sub { "EN" },
	handles => { _word_list => 'words' },
);

*chars = *provider = sub {};

sub make_password
{
	my $self = shift;
	my ($length, $filter) = @_;

	$self = $self->new unless ref $self;

	$length = 4 unless defined $length;
	$length = 4 unless $length > 0;

	my $rng        = $self->rng;
	my $words      = $self->_word_list;
	my $word_count = @$words;

	my @password;
	while (@password < $length)
	{
		local $_ = my $maybe = $words->[ $rng->($word_count) ];
		push @password, $maybe
			if (!defined $filter or match($maybe, $filter));
	}

	join q{ }, @password;
}

__PACKAGE__
__END__