aboutsummaryrefslogtreecommitdiff
path: root/lib/Example/Foobar/proverb.pm
blob: 8679f774ea8a10109931c85160d58e253fa6d3dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
package Example::Foobar::proverb;
use strict;
use warnings;

my @proverbs = (
    'Scintillate, scintillate, asteroid minikin.',
    'Members of an avian species of identical plumage congregate.',
    'Surveillance should precede saltation.',
    'Pulchritude possesses solely cutaneous profundity.',
    "It is fruitless to become lachrymose over precipitately departed\n"
    ."    lacteal fluid.",
    'Freedom from incrustations of grime is contiguous to rectitude.',
    "It is fruitless to attempt to indoctrinate a superannuated\n"
    ."    canine with innovative maneuvers.",
    'Eschew the implement of correction and vitiate the scion.',
    "The temperature of the aqueous content of an unremittingly\n"
    ."    galled saucepan does not reach 212 degrees Farenheit."
);

sub new {
    my $class = shift;
    bless { selection => int(rand(@proverbs)) }, $class;
}


sub run {
    my $self = shift;
    print $proverbs[$self->{selection}],"\n";
}

1;
=head1 NAME

proverb - prints a rephrased proverb

=head1 SYNOPSIS

B<foobar proverb>

=head1 DESCRIPTION

Displays an arbitrary proverb.

=cut

Return to:

Send suggestions and report system problems to the System administrator.