File Coverage

blib/lib/Template/Plugin/RndString.pm

Criterion	Covered	Total	%
statement	32	39	82.0
branch	3	14	21.4
condition	2	12	16.6
subroutine	7	7	100.0
pod	1	2	50.0
total	45	74	60.8

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

our $VERSION = "0.02";

sub new {
    my ($class, $context, $args) = @_;

    my $chrset = [0..9, 'A'..'Z', 'a'..'z'];
    if ($args && (ref $args eq 'HASH')) {
        if (defined $args->{chrset}) {
            if (ref $args->{chrset} eq 'ARRAY') {
                $chrset = $args->{chrset};
            }
            elsif (!ref $args->{chrset}) {
                my @s = split '', $args->{chrset};
                $chrset = \@s;
            }
        }
    }

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

sub make {
    my ($self, $minlen, $maxlen) = @_;
    my $fs = "";

    if ($minlen && $maxlen) {
        unless (($minlen =~ m/^\d+$/) && ($maxlen =~ m/^\d+$/) && ($minlen <= $maxlen)) {
            $minlen = $maxlen = 32;
        }
    }
    else {
        $minlen = $maxlen = 32;
    }

    srand;

    my @letters = grep {m/^[A-Z]$/i} @{$self->{chrset}};

    if (@letters) {
        --$minlen; --$maxlen;
        $fs = chars(1,1, \@letters);
    }

    my $len = int($minlen + (1+$maxlen-$minlen)*rand);
    return $fs . chars($len,$len, $self->{chrset});
}
1;

__END__