local-lib5/lib/perl5/i486-linux-gnu-thread-multi/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.43
  27
  28 =head1 SEE ALSO
  29
  30 L<Moose::Meta::Role::Method>
  31
  32 =cut
  33