8 use Mouse::Util 'blessed';
10 use Mouse::Meta::Role;
12 our @EXPORT = qw(before after around has extends with requires excludes confess blessed);
15 my $meta = Mouse::Meta::Role->initialize(caller);
19 $meta->add_before_method_modifier($_ => $code);
24 my $meta = Mouse::Meta::Role->initialize(caller);
28 $meta->add_after_method_modifier($_ => $code);
33 my $meta = Mouse::Meta::Role->initialize(caller);
37 $meta->add_around_method_modifier($_ => $code);
42 my $meta = Mouse::Meta::Role->initialize(caller);
47 $meta->add_attribute($name => \%opts);
50 sub extends { confess "Roles do not support 'extends'" }
53 my $meta = Mouse::Meta::Role->initialize(caller);
55 my $args = shift || {};
56 confess "Mouse::Role only supports 'with' on individual roles at a time" if @_ || !ref $args;
58 Mouse::load_class($role);
59 $role->meta->apply($meta, %$args);
63 my $meta = Mouse::Meta::Role->initialize(caller);
64 Carp::croak "Must specify at least one method" unless @_;
65 $meta->add_required_methods(@_);
68 sub excludes { confess "Mouse::Role does not currently support 'excludes'" }
75 my $meta = Mouse::Meta::Role->initialize(caller);
78 no warnings 'redefine';
79 *{$caller.'::meta'} = sub { $meta };
81 Mouse::Role->export_to_level(1, @_);
88 for my $keyword (@EXPORT) {
89 delete ${ $caller . '::' }{$keyword};
103 =head2 meta -> Mouse::Meta::Role
105 Returns this role's metaclass instance.
107 =head2 before (method|methods) => Code
109 Sets up a "before" method modifier. See L<Moose/before> or
110 L<Class::Method::Modifiers/before>.
112 =head2 after (method|methods) => Code
114 Sets up an "after" method modifier. See L<Moose/after> or
115 L<Class::Method::Modifiers/after>.
117 =head2 around (method|methods) => Code
119 Sets up an "around" method modifier. See L<Moose/around> or
120 L<Class::Method::Modifiers/around>.
122 =head2 has (name|names) => parameters
124 Sets up an attribute (or if passed an arrayref of names, multiple attributes) to
125 this role. See L<Mouse/has>.
127 =head2 confess error -> BOOM
129 L<Carp/confess> for your convenience.
131 =head2 blessed value -> ClassName | undef
133 L<Scalar::Util/blessed> for your convenience.
139 Importing Mouse::Role will give you sugar.
143 Please unimport Mouse (C<no Mouse::Role>) so that if someone calls one of the
144 keywords (such as L</has>) it will break loudly instead breaking subtly.