
Moose::Role - The Moose Role

package Eq;
use strict;
use warnings;
use Moose::Role;
requires 'equal';
sub no_equal {
my ($self, $other) = @_;
!$self->equal($other);
}
# ... then in your classes
package Currency;
use strict;
use warnings;
use Moose;
with 'Eq';
sub equal {
my ($self, $other) = @_;
$self->as_float == $other->as_float;
}

Role support in Moose is coming along quite well. It's best documentation is still the the test suite, but it is fairly safe to assume Perl 6 style behavior, and then either refer to the test suite, or ask questions on #moose if something doesn't quite do what you expect. More complete documentation is planned and will be included with the next official (non-developer) release.

Currently Moose::Role supports all of the functions that Moose exports, but differs slightly in how some items are handled (see CAVEATS below for details).
Moose::Role also offers two role specific keyword exports:
Roles can require that certain methods are implemented by any class which does the role.
Roles can exclude other roles, in effect saying "I can never be combined with these @role_names". This is a feature which should not be used lightly.

The role support now has only a few caveats. They are as follows:
extends keyword, it will throw an exception for now. The same is true of the augment and inner keywords (not sure those really make sense for roles). All other Moose keywords will be deferred so that they can be applied to the consuming class.In most cases, this will be a non issue, however it is something to keep in mind when using method modifiers in a role. You should never assume any ordering.
requires keyword currently only works with actual methods. A method modifier (before/around/after and override) will not count as a fufillment of the requirement, and neither will an autogenerated accessor for an attribute.
It is likely that the attribute accessors will eventually be allowed to fufill those requirements, either that or we will introduce a requires_attr keyword of some kind instead. This descision has not yet been finalized.

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

Stevan Little <stevan@iinteractive.com>
Christian Hansen <chansen@cpan.org>

Copyright 2006 by Infinity Interactive, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.