File Coverage

blib/lib/Template/Plugin/DataRandom.pm

Criterion	Covered	Total	%
statement	18	44	40.9
branch			n/a
condition			n/a
subroutine	6	15	40.0
pod	8	9	88.8
total	32	68	47.0

#============================================================================
#
# Template::Plugin::DataRandom
#
# DESCRIPTION
#
#   Plugin to use Data::Random in Template Toolkit
#
# AUTHORS
#   Emmanuel Quevillon
#
# COPYRIGHT
#   Copyright (C) 2010 Emmanuel Quevillon
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#============================================================================

package Template::Plugin::DataRandom;

use strict;
use vars qw($VERSION);

use base 'Template::Plugin';
use Template::Plugin;
use Template::Exception;

use Data::Random qw(:all);

$VERSION = '0.03';

sub new {

    my($class, $context) = @_;

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

sub rndwrds {

    my $self = shift;
    my $args = shift;

    return rand_words(%$args);
}

sub rndchrs {

    my $self = shift;
    my $args = shift;

    return rand_chars(%$args);
}

sub rndset {

    my $self = shift;
    my $args = shift;

    return rand_set(%$args);
}

sub rndenum {

    my $self = shift;
    my $args = shift;

    return rand_enum(%$args);
}

sub rnddate {

    my $self = shift;
    my $args = shift;

    return rand_date(%$args);
}

sub rndtime {

    my $self = shift;
    my $args = shift;

    return rand_time(%$args);
}

sub rnddtime {

    my $self = shift;
    my $args = shift;

    return rand_datetime(%$args);
}

sub rndimg {

    my $self = shift;
    my $args = shift;

    return rand_image(%$args);
}

1;

__END__