File Coverage

blib/lib/Lingua/En/Victory.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	4	75.0
total	34	35	97.1

package Lingua::En::Victory;

use 5.008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Lingua::En::Victory ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

our $a = chr(39);
our @template;

# Preloaded methods go here.

sub new {

    my $pkg = shift;
    while () {
	last if /__END__/;
	chomp;
	push @template, $_;
    }

    bless {}, $pkg;

}

sub templates {
    \@template;
}

sub expr {
    my ($self, $template, $W, $L) = @_;

#    warn "$template, $W, $L";
    my $eval = "\$_ = \"$template\""  ;
#    warn $eval;
    eval $eval;
}

sub rand_expr {
    my ($self, $W, $L) = @_;

    my $template = $template[rand @template];
    $self->expr($template, $W, $L);
}

1;
__DATA__