File Coverage

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