Moose::Cookbook::Basics::DateTime_ExtendingNonMooseParent - Extending a non-Moose parent class
version 2.2203
package My::DateTime;
use Moose;
use MooseX::NonMoose;
use DateTime::Calendar::Mayan;
extends qw( DateTime );
has 'mayan_date' => (
is => 'ro',
isa => 'DateTime::Calendar::Mayan',
init_arg => undef,
lazy => 1,
builder => '_build_mayan_date',
clearer => '_clear_mayan_date',
predicate => 'has_mayan_date',
);
after 'set' => sub {
$_[0]->_clear_mayan_date;
};
sub _build_mayan_date {
DateTime::Calendar::Mayan->from_object( object => $_[0] );
}
This recipe demonstrates how to use Moose to subclass a parent which is not Moose based. This recipe only works if the parent class uses a blessed hash reference for object instances. If your parent is doing something funkier, you should check out MooseX::NonMoose::InsideOut and MooseX::InsideOut.
The meat of this recipe is contained in MooseX::NonMoose, which does all the grunt work for you.
• |
Stevan Little <stevan AT cpan DOT org> |
||
• |
Dave Rolsky <autarch AT urth DOT org> |
||
• |
Jesse Luehrs <doy AT cpan DOT org> |
||
• |
Shawn M Moore <sartak AT cpan DOT org> |
||
• |
יובל קוג’מן (Yuval Kogman) <nothingmuch AT woobling DOT org> |
||
• |
Karen Etheridge <ether AT cpan DOT org> |
||
• |
Florian Ragwitz <rafl AT debian DOT org> |
||
• |
Hans Dieter Pearcey <hdp AT cpan DOT org> |
||
• |
Chris Prather <chris AT prather DOT org> |
||
• |
Matt S Trout <mstrout AT cpan DOT org> |
This software is copyright (c) 2006 by Infinity Interactive, Inc.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.