aboutsummaryrefslogtreecommitdiff
path: root/lib/Example/Foobar/proverb.pm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2020-03-31 12:23:57 +0300
committerSergey Poznyakoff <gray@gnu.org>2020-03-31 12:35:34 +0300
commitccd334f1fbdf0aefd7d53733e62fbc76a30feaf2 (patch)
tree21859006c35f8e20732e36743972f6ddad372f57 /lib/Example/Foobar/proverb.pm
downloadfoobar-ccd334f1fbdf0aefd7d53733e62fbc76a30feaf2.tar.gz
foobar-ccd334f1fbdf0aefd7d53733e62fbc76a30feaf2.tar.bz2
Initial commit
Diffstat (limited to 'lib/Example/Foobar/proverb.pm')
-rw-r--r--lib/Example/Foobar/proverb.pm44
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

Return to:

Send suggestions and report system problems to the System administrator.