File Coverage

blib/lib/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package MooseX::Declare::Syntax::MethodDeclaration::Parameterized;
2             $MooseX::Declare::Syntax::MethodDeclaration::Parameterized::VERSION = '0.39';
3 24     24   19154 use Moose::Role;
  24         56  
  24         234  
4 24     24   160665 use MooseX::Role::Parameterized 0.12 ();
  24         1612325  
  24         801  
5 24     24   280 use namespace::autoclean;
  24         163  
  24         161  
6              
7             around register_method_declaration => sub {
8             my ($next, $self, $parameterizable_meta, $name, $method) = @_;
9             my $meta = $self->metaclass_for_method_application($parameterizable_meta, $name, $method);
10             $self->$next($meta, $name, $method);
11             };
12              
13             sub metaclass_for_method_application {
14 6     6 0 47 return MooseX::Role::Parameterized->current_metaclass;
15             }
16              
17             1;