Linux and UNIX Man Pages

Linux & Unix Commands - Search Man Pages

moose::cookbook::extending::recipe4(3) [osx man page]

Moose::Cookbook::Extending::Recipe4(3)			User Contributed Perl Documentation		    Moose::Cookbook::Extending::Recipe4(3)

NAME
Moose::Cookbook::Extending::Recipe4 - Acting like Moose.pm and providing sugar Moose-style VERSION
version 2.0205 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. perl v5.12.5 2011-09-06 Moose::Cookbook::Extending::Recipe4(3)

Check Out this Related Man Page

Moose::Cookbook::Meta::Recipe4(3)			User Contributed Perl Documentation			 Moose::Cookbook::Meta::Recipe4(3)

NAME
Moose::Cookbook::Meta::Recipe4 - Adding a "table" attribute to the metaclass VERSION
version 2.0205 SYNOPSIS
package MyApp::Meta::Class; use Moose; extends 'Moose::Meta::Class'; has table => ( is => 'rw', isa => 'Str', ); DESCRIPTION
In this recipe, we'll create a new metaclass which has a "table" attribute. This metaclass is for classes associated with a DBMS table, as one might do for an ORM. In this example, the table name is just a string, but in a real ORM the table might be an object describing the table. THE METACLASS
This really is as simple as the recipe "SYNOPSIS" shows. The trick is getting your classes to use this metaclass, and providing some sort of sugar for declaring the table. This is covered in Moose::Cookbook::Extending::Recipe2, which shows how to make a module like "Moose.pm" itself, with sugar like "has_table()". Using this Metaclass in Practice Accessing this new "table" attribute is quite simple. Given a class named "MyApp::User", we could simply write the following: my $table = MyApp::User->meta->table; As long as "MyApp::User" has arranged to use "MyApp::Meta::Class" as its metaclass, this method call just works. If we want to be more careful, we can check the metaclass's class: $table = MyApp::User->meta->table if MyApp::User->meta->isa('MyApp::Meta::Class'); CONCLUSION
Creating custom metaclass is trivial. Using it is a little harder, and is covered in other recipes. We will also talk about applying traits to a class metaclass, which is a more flexible and cooperative implementation. SEE ALSO
Moose::Cookbook::Meta::Recipe5 - The "table" attribute implemented as a metaclass trait Moose::Cookbook::Extending::Recipe2 - Acting like Moose.pm and providing sugar Moose-style 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. perl v5.12.5 2011-09-06 Moose::Cookbook::Meta::Recipe4(3)
Man Page