The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Lingua::En::Victory - Perl extension for egotistically expressing victory.

SYNOPSIS

  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);

ABSTRACT

Lingua::En::Victory is a Perl extension for egotistically expressing victory.

DESCRIPTION

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.

METHODS

new()

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;

templates()

This method returns a reference to the array of templates

  my $templates = $v->templates;

expr ($template, $winner_name, $loser_name)

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";
  }

rand_exp ($winner_name, $loser_name)

This method randomly selects one of the templates and fills it in with the winner and loser name.

EXPORT

None by default.

AUTHOR

T. M. Brannon, <tbone@cpan.org>

COPYRIGHT AND LICENSE

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.