Lingua::En::Victory - Perl extension for egotistically expressing victory.
use Lingua::En::Victory; my $v = Lingua::En::Victory->new; my $templates = $v->templates; for my $template (@$templates) { print $v->expr($template, $winner, $loser); print "\n"; } print $v->rand_expr($template, $winner, $loser) for (1..5);
Lingua::En::Victory is a Perl extension for egotistically expressing victory.
I developed a gaming site and got a little tired of reporting the results as "A beat B" so I wrote this module to spice up the results reporting.
This must be called first to create a Lingua::En::Victory object for use with the remaining API calls:
my $v = Lingua::En::Victory->new;
This method returns a reference to the array of templates
my $templates = $v->templates;
This method fills in the given template with the winner and loser name:
for my $template (@$templates) { print $v->expr($template, $winner, $loser); print "\n"; }
This method randomly selects one of the templates and fills it in with the winner and loser name.
None by default.
T. M. Brannon, <tbone@cpan.org>
Copyright 2003 by T. M. Brannon
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Lingua::En::Victory, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Lingua::En::Victory
CPAN shell
perl -MCPAN -e shell install Lingua::En::Victory
For more information on module installation, please visit the detailed CPAN module installation guide.