File Coverage

blib/lib/Template/Plugin/RndString.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	2	8	25.0
condition	2	15	13.3
subroutine	7	7	100.0
pod	1	2	50.0
total	37	61	60.6

package Template::Plugin::RndString;
use 5.008001;
use strict;
use warnings;
use base 'Template::Plugin';
use Crypt::GeneratePassword qw(chars);

our $VERSION = "0.01";

sub new {
    my ($class, $context, $args) = @_;
    my $chrset = [0..9, 'A'..'Z', 'a'..'z'];
    if ($args && (ref $args eq 'HASH')) {
        if (defined $args->{chrset} && (ref $args->{chrset} eq 'ARRAY')) {
            $chrset = $args->{chrset};
        }
    }

    bless {
        context => $context,
        chrset  => $chrset,
    }, $class;
}

sub make {
    my ($self, $minlen, $maxlen) = @_;
    if ($minlen && $maxlen) {
        unless (($minlen =~ m/^\d+$/) && ($maxlen =~ m/^\d+$/) && ($minlen <= $maxlen)) {
            $minlen = $maxlen = 32;
        }
    }
    else {
        $minlen = $maxlen = 32;
    }
    srand;
    my $len = int($minlen + (1+$maxlen-$minlen)*rand);
    my @set = eval $self->{chrset};
    return chars($len,$len, $self->{chrset});
}
1;

__END__