7 use Scalar::Util 'blessed';
11 our @EXPORT = qw(before after around has extends with requires excludes confess blessed);
14 my $meta = Mouse::Meta::Role->initialize(caller);
18 $meta->add_before_method_modifier($_ => $code);
23 my $meta = Mouse::Meta::Role->initialize(caller);
27 $meta->add_after_method_modifier($_ => $code);
32 my $meta = Mouse::Meta::Role->initialize(caller);
36 $meta->add_around_method_modifier($_ => $code);
41 my $meta = Mouse::Meta::Role->initialize(caller);
46 $meta->add_attribute($name => \%opts);
49 sub extends { confess "Roles do not support 'extends'" }
52 my $meta = Mouse::Meta::Role->initialize(caller);
54 my $args = shift || {};
55 confess "Mouse::Role only supports 'with' on individual roles at a time" if @_ || !ref $args;
57 Mouse::load_class($role);
58 $role->meta->apply($meta, %$args);
62 my $meta = Mouse::Meta::Role->initialize(caller);
63 Carp::croak "Must specify at least one method" unless @_;
64 $meta->add_required_methods(@_);
67 sub excludes { confess "Mouse::Role does not currently support 'excludes'" }
74 my $meta = Mouse::Meta::Role->initialize(caller);
77 no warnings 'redefine';
78 *{$caller.'::meta'} = sub { $meta };
80 Mouse::Role->export_to_level(1, @_);
87 for my $keyword (@EXPORT) {
88 delete ${ $caller . '::' }{$keyword};
102 =head2 meta -> Mouse::Meta::Role
104 Returns this role's metaclass instance.
106 =head2 before (method|methods) => Code
108 Sets up a "before" method modifier. See L<Moose/before> or
109 L<Class::Method::Modifiers/before>.
111 =head2 after (method|methods) => Code
113 Sets up an "after" method modifier. See L<Moose/after> or
114 L<Class::Method::Modifiers/after>.
116 =head2 around (method|methods) => Code
118 Sets up an "around" method modifier. See L<Moose/around> or
119 L<Class::Method::Modifiers/around>.
121 =head2 has (name|names) => parameters
123 Sets up an attribute (or if passed an arrayref of names, multiple attributes) to
124 this role. See L<Mouse/has>.
126 =head2 confess error -> BOOM
128 L<Carp/confess> for your convenience.
130 =head2 blessed value -> ClassName | undef
132 L<Scalar::Util/blessed> for your convenience.
138 Importing Mouse::Role will give you sugar.
142 Please unimport Mouse (C<no Mouse::Role>) so that if someone calls one of the
143 keywords (such as L</has>) it will break loudly instead breaking subtly.