Rechercher une page de manuel
Moose::Cookbook::Extending::Recipe4.3pm
Langue: en
Version: 2008-08-31 (ubuntu - 08/07/09)
Section: 3 (Bibliothèques de fonctions)
NAME
Moose::Cookbook::Extending::Recipe4 - Acting like Moose.pm and providing sugar Moose-styleSYNOPSIS
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.<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Contenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre