NAME

Moose::Cookbook::Extending::Recipe4 - Acting like Moose.pm and providing sugar Moose-style

VERSION

version 2.0202

SYNOPSIS

package MyApp::Mooseish;

use Moose ();
use Moose::Exporter;

Moose::Exporter->setup_import_methods(
    with_meta => ['has_table'],
    also      => 'Moose',
);

sub init_meta {
    shift;
    return Moose->init_meta( @_, metaclass => 'MyApp::Meta::Class' );
}

sub has_table {
    my $meta = shift;
    $meta->table(shift);
}

package MyApp::Meta::Class;
use Moose;

extends 'Moose::Meta::Class';

has 'table' => ( is => 'rw' );

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 has_table sugar function.

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_meta 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.

CONCLUSION

Providing sugar functions can make your extension look much more Moose-ish. See Fey::ORM for a more extensive example.

AUTHOR

Stevan Little <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 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.