Moose::Cookbook::Extending::Recipe1 - Providing an alternate base object class
package MyApp::Base; use Moose; extends 'Moose::Object'; before 'new' => sub { warn "Making a new " . $_[0] }; no Moose; package MyApp::UseMyBase; use Moose (); sub import { my $caller = caller(); return if $caller eq 'main'; Moose::init_meta( $caller, 'MyApp::Object', ); Moose->import( { into => $caller }, @_ ); } sub unimport { my $caller = caller(); Moose->unimport( { into => $caller }, @_ ); }
Often you find that you want to share some behavior between all your classes. One way to do that is to make a base class and simply add extends 'MyApp::Base' to every class in your application. However, that can get tedious. Instead, you can simply create your Moose-alike module that sets the base object class to MyApp::Base for you.
extends 'MyApp::Base'
MyApp::Base
Then, instead of writing use Moose you can write use MyApp::UseMyBase.
use Moose
use MyApp::UseMyBase
In this particular example, our base class issues some debugging output every time a new object is created, but you can surely think of some more interesting things to do with your own base class.
Dave Rolsky <autarch@urth.org>
Copyright 2006-2008 by Infinity Interactive, Inc.
http://www.iinteractive.com
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Moose, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Moose
CPAN shell
perl -MCPAN -e shell install Moose
For more information on module installation, please visit the detailed CPAN module installation guide.