aboutsummaryrefslogtreecommitdiff
path: root/lib/Example/Foobar/limerick.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Example/Foobar/limerick.pm')
-rw-r--r--lib/Example/Foobar/limerick.pm36
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/Example/Foobar/limerick.pm b/lib/Example/Foobar/limerick.pm
new file mode 100644
index 0000000..790210c
--- /dev/null
+++ b/lib/Example/Foobar/limerick.pm
@@ -0,0 +1,36 @@
+package Example::Foobar::limerick;
+
+=head1 NAME
+
+limerick - prints a limerick
+
+=cut
+
+use strict;
+use warnings;
+
+=head1 DESCRIPTION
+
+There's hardly any need to comment. The code is pretty straightforward.
+The constructor is trivial. The B<run> method prints a limerick of
+questionable quality and returns.
+
+=cut
+
+sub new {
+ bless {}, shift
+}
+
+sub run {
+ my $self = shift;
+ print <<EOT
+There was a young man of high station
+Who was found by a pious relation
+ Making love in a ditch
+ To -- I won't say a bitch --
+But a woman of no reputation.
+EOT
+;
+}
+
+1;

Return to:

Send suggestions and report system problems to the System administrator.