Skip to content
Browse files

Implement a non-Moose inheritance example. Test the new Pod::Plexus "…

…=include" directive.
  • Loading branch information...
1 parent b72e530 commit 000a5036fd9342f67b51c77e3dd59f5d6853f471 @rcaputo committed Jul 16, 2011
Showing with 37 additions and 0 deletions.
  1. +37 −0 lib/Reflex/Eg/Inheritance/Plain.pm
View
37 lib/Reflex/Eg/Inheritance/Plain.pm
@@ -0,0 +1,37 @@
+package Reflex::Eg::Inheritance::Plain;
+
+use warnings;
+use strict;
+use base 'Reflex::Timeout';
+
+sub on_done {
+ shift()->reset();
+ print scalar(localtime()), " - Subclass got timeout.\n";
+}
+
+1;
+
+__END__
+
+=pod
+
+=abstract Inheriting a Reflex timer with plain Perl.
+
+=head1 SYNOPSIS
+
+=example Reflex::Eg::Inheritance::Plain
+
+Usage:
+
+ perl -M[% doc.module %] -e '[% doc.module %]->new(delay => 1)->run_all'
+
+=head1 DESCRIPTION
+
+This module is nearly identical to Reflex::Eg::Inheritance::Moose.
+It only differs in the mechanism of subclassing Reflex::Timeout.
+
+=include Reflex::Eg::Inheritance::Moose DESCRIPTION
+
+=cut
+
+# vim: ts=2 sw=2 expandtab

0 comments on commit 000a503

Please sign in to comment.
Something went wrong with that request. Please try again.