#!/usr/bin/perl -w
use strict;
#------------------------
# lj_poly_term - to solvle a technical
# question for the poly amorry joker
#------------------------
my $foo = new Lj::Poly::Burper;
$foo->burp;
#
# the handy dandy class in a Begin Block,
# Just for the Fun Of It.
#
BEGIN {
package Lj::Poly::Burper;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.01';
#---------------------------------
# Our Stock Constructor
# note: <http://www.perlmonks.org/index.pl?node_id=52089>
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;
} # end of our simple new
#---------------------------------
# so that AUTOLOAD finds one here
sub DESTROY {}
#---------------------------------
# The Constants
#---------------------------------
#
# the list of phrases is what we select from
# so update this with what ever will be used.
#
my @phrases = (
'phrase zero',
'phrase one',
'phrase two',
'phrase three'
);
# this way we have a single instance of the
# max token at the time of the compile In case
# anyone were to Use This
#
my $phrase_max = $#phrases;
#------------------------
# The Function get_rand_number_in_range() requires
#
# a. $min - the minimum value
# b. $max - the maximum value
#
# It will return a random number within those two
# numbers inclusively.
#
#
sub get_rand_number_in_range
{
my ($me, $max, $min) = @_;
$min = 0 unless(defined($min));
my $base = $max - $min + 1;
my $tmp = int(rand($base)) + $min;
} # end of get_rand_number_in_range
#------------------------
# boring intermediary method for getting
# merely the phrase.
sub get_phrase
{
my ($me) = @_;
my $key = $me->get_rand_number_in_range($phrase_max);
$phrases[$key];
} # end of get_phrase
#------------------------
# This of course allows for the actual
# all in one, get the random phrase and print it.
sub burp
{
my ($me) = @_;
my $phrase = $me->get_phrase;
print "$phrase\n";
} # end of burp
1; # so that the 'use Lj::Poly::Burper'
# will know we are happy
} # end begin
#
# end of the world as I knew it drieux@wetware.com all rights reserved
# but provided as an as is piece of comedy. If you like it, use it,
# and be polite and leave the notice
#