NAME

Moose::Cookbook::Extending::Recipe1 - Providing an alternate base object class

SYNOPSIS

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 }, @_ );
}

DESCRIPTION

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.

Then, instead of writing use Moose you can write 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.

AUTHOR

Dave Rolsky <autarch@urth.org>

COPYRIGHT AND LICENSE

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.