File Coverage

blib/lib/MooseX/Attribute/LazyInflator/Meta/Role/ApplicationToRole.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of MooseX-Attribute-Deflator
3             #
4             # This software is Copyright (c) 2012 by Moritz Onken.
5             #
6             # This is free software, licensed under:
7             #
8             # The (three-clause) BSD License
9             #
10             package MooseX::Attribute::LazyInflator::Meta::Role::ApplicationToRole;
11             {
12             $MooseX::Attribute::LazyInflator::Meta::Role::ApplicationToRole::VERSION = '2.1.11'; # TRIAL
13             }
14 4     4   15 use Moose::Role;
  4         4  
  4         22  
15              
16             around apply => sub {
17             my $orig = shift;
18             my $self = shift;
19             my $role = shift;
20             my $class = shift;
21             $class =
22             Moose::Util::MetaRole::apply_metaroles(
23             for => $class,
24             role_metaroles => {
25             application_to_class => [
26             'MooseX::Attribute::LazyInflator::Meta::Role::ApplicationToClass'
27             ],
28             } );
29             $self->$orig( $role, $class );
30             };
31              
32             1;
33              
34             __END__
35             =pod
36              
37             =head1 NAME
38              
39             MooseX::Attribute::LazyInflator::Meta::Role::ApplicationToRole
40              
41             =head1 VERSION
42              
43             version 2.1.11
44              
45             =head1 AUTHOR
46              
47             Moritz Onken
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             This software is Copyright (c) 2012 by Moritz Onken.
52              
53             This is free software, licensed under:
54              
55             The (three-clause) BSD License
56              
57             =cut
58