File Coverage

blib/lib/Text/Password/Pronounceable/RandomCase.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	10	18	55.5
subroutine	6	6	100.0
pod	2	2	100.0
total	49	57	85.9

package Text::Password::Pronounceable::RandomCase;

use strict;
use warnings;
use parent 'Text::Password::Pronounceable';
use Readonly;

our $VERSION = '0.03';

sub generate {
    my ( $self, $min, $max, $prob ) = @_;
    Readonly::Scalar my $DEFAULT_PROBALITITY => 4;
    Readonly::Scalar my $DEFAULT_LENGTH      => 8;

    if (ref $self) {
	$min  ||= $self->{min};
	$max  ||= $self->{max};
	$prob ||= $self->{prob};
    }

    $min  ||= $DEFAULT_LENGTH;
    $max  ||= $min;
    $prob ||= $DEFAULT_PROBALITITY;

    my $password = $self->SUPER::generate( $min, $max );

    return join '', map { int rand $prob ? $_ : uc } split //xms, $password;
}

sub new {
    my ( $class, $min, $max, $prob ) = @_;

    return bless { min => $min, max => $max, prob => $prob }, $class;
}

1;

__END__