Checking in changes prior to tagging of version 0.81.
[gitmo/Mouse.git] / lib / Mouse / Meta / Role / Method.pm
1 package Mouse::Meta::Role::Method;
2 use Mouse::Util; # enables strict and warnings
3
4 use Mouse::Meta::Method;
5 our @ISA = qw(Mouse::Meta::Method);
6
7 sub _new{
8     my($class, %args) = @_;
9     my $self = bless \%args, $class;
10
11     if($class ne __PACKAGE__){
12         $self->meta->_initialize_object($self, \%args);
13     }
14     return $self;
15 }
16
17 1;
18 __END__
19
20 =head1 NAME
21
22 Mouse::Meta::Role::Method - A Mouse Method metaclass for Roles
23
24 =head1 VERSION
25
26 This document describes Mouse version 0.81
27
28 =head1 SEE ALSO
29
30 L<Moose::Meta::Role::Method>
31
32 =cut
33