NAME
Moose::Cookbook::Extending::Recipe2 - Acting like Moose.pm and providing sugar Moose-style
SYNOPSIS
package MyApp::Mooseish;
use strict;
use warnings;
use Moose ();
use Moose::Exporter;
Moose::Exporter->setup_import_methods(
with_caller => ['has_table'],
also => 'Moose',
);
sub init_meta {
shift;
Moose->init_meta( @_, metaclass => 'MyApp::Meta::Class' );
}
sub has_table {
my $caller = shift;
$caller->meta()->table(shift);
}DESCRIPTION
This recipe expands on the use of Moose::Exporter we saw in Moose::Cookbook::Extending::Recipe1. Instead of providing our own object base class, we provide our own metaclass class, and we also export a sugar subroutine has_table().
Given the above code, you can now replace all instances of use Moose with use MyApp::Mooseish. Similarly, no Moose is now replaced with no MyApp::Mooseish.
The with_caller parameter specifies a list of functions that should be wrapped before exporting. The wrapper simply ensures that the importing package name is the first argument to the function, so we can do my $caller = shift;.
See the Moose::Exporter docs for more details on its API.
USING MyApp::Mooseish
The purpose of all this code is to provide a Moose-like interface. Here's what it would look like in actual use:
package MyApp::User;
use MyApp::Mooseish;
has_table 'User';
has 'username' => ( is => 'ro' );
has 'password' => ( is => 'ro' );
sub login { ... }
no MyApp::Mooseish;All of the normal Moose sugar (has(), with(), etc) is available when you use MyApp::Mooseish.
AUTHOR
Dave Rolsky <autarch@urth.org>
COPYRIGHT AND LICENSE
Copyright 2006-2008 by Infinity Interactive, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.