File Coverage

blib/lib/MooseX/BuildArgs/Meta/ToClass.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 7 7 100.0


line stmt bran cond sub pod time code
1             package MooseX::BuildArgs::Meta::ToClass;
2 2     2   18839 use 5.008001;
  2         8  
3             our $VERSION = '0.08';
4              
5 2     2   17 use Moose::Role;
  2         5  
  2         14  
6              
7             around apply => sub {
8             my $orig = shift;
9             my $self = shift;
10             my $from_role = shift;
11             my $to_class = shift;
12              
13             Moose::Util::MetaRole::apply_base_class_roles(
14             for => $to_class,
15             roles => ['MooseX::BuildArgs::Meta::Object'],
16             );
17              
18             return $self->$orig( $from_role, $to_class );
19             };
20              
21             1;