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 = shift;
   9     return $class->meta->new_object(@_)
  10         if $class ne __PACKAGE__;
  11     return bless {@_}, $class;
  12 }
  13
  14 1;
  15 __END__
  16
  17 =head1 NAME
  18
  19 Mouse::Meta::Role::Method - A Mouse Method metaclass for Roles
  20
  21 =head1 VERSION
  22
  23 This document describes Mouse version 0.40_07
  24
  25 =head1 SEE ALSO
  26
  27 L<Moose::Meta::Role::Method>
  28
  29 =cut
  30