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.