diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2020-03-31 12:23:57 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2020-03-31 12:35:34 +0300 |
commit | ccd334f1fbdf0aefd7d53733e62fbc76a30feaf2 (patch) | |
tree | 21859006c35f8e20732e36743972f6ddad372f57 /lib/Example/Foobar/proverb.pm | |
download | foobar-ccd334f1fbdf0aefd7d53733e62fbc76a30feaf2.tar.gz foobar-ccd334f1fbdf0aefd7d53733e62fbc76a30feaf2.tar.bz2 |
Initial commit
Diffstat (limited to 'lib/Example/Foobar/proverb.pm')
-rw-r--r-- | lib/Example/Foobar/proverb.pm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/lib/Example/Foobar/proverb.pm b/lib/Example/Foobar/proverb.pm new file mode 100644 index 0000000..8679f77 --- /dev/null +++ b/lib/Example/Foobar/proverb.pm @@ -0,0 +1,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 |