diff options
Diffstat (limited to 'lib/Example/Foobar/limerick.pm')
-rw-r--r-- | lib/Example/Foobar/limerick.pm | 36 |
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; |