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   35807 use Mouse::Util; # enables strict and warnings
  108         133  
  108         523  
3              
4 108     108   821 use Mouse::Meta::Method;
  108         127  
  108         8641  
5             our @ISA = qw(Mouse::Meta::Method);
6              
7             sub _new{
8 8     8   25 my($class, %args) = @_;
9 8         12 my $self = bless \%args, $class;
10              
11 8 50       26 if($class ne __PACKAGE__){
12 0         0 $self->meta->_initialize_object($self, \%args);
13             }
14 8         65 return $self;
15             }
16              
17             1;
18             __END__