File Coverage

blib/lib/Mouse/Meta/Role/Method.pm
Criterion Covered Total %
statement 10 11 90.9
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Mouse::Meta::Role::Method;
2 108     108   34819 use Mouse::Util; # enables strict and warnings
  108         136  
  108         486  
3              
4 108     108   917 use Mouse::Meta::Method;
  108         125  
  108         7932  
5             our @ISA = qw(Mouse::Meta::Method);
6              
7             sub _new{
8 8     8   28 my($class, %args) = @_;
9 8         15 my $self = bless \%args, $class;
10              
11 8 50       16 if($class ne __PACKAGE__){
12 0         0 $self->meta->_initialize_object($self, \%args);
13             }
14 8         72 return $self;
15             }
16              
17             1;
18             __END__