File Coverage

blib/lib/MooseX/AttributeIndexes/Meta/Role/Composite.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1 2     2   2407 use 5.006; # our, pragmas
  2         5  
2 2     2   7 use strict;
  2         3  
  2         41  
3 2     2   6 use warnings;
  2         2  
  2         142  
4              
5             package MooseX::AttributeIndexes::Meta::Role::Composite;
6              
7             our $VERSION = '2.000001';
8              
9             # ABSTRACT: Give a either a class or role indexable attributes.
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   371 use Moose::Role qw( around );
  2         295865  
  2         12  
14              
15             around apply_params => sub {
16             my $orig = shift;
17             my $self = shift;
18              
19             $self->$orig(@_);
20              
21             $self = Moose::Util::MetaRole::apply_metaroles(
22             for => $self,
23             role_metaroles => {
24             application_to_class => ['MooseX::AttributeIndexes::Meta::Role::ApplicationToClass'],
25             application_to_role => ['MooseX::AttributeIndexes::Meta::Role::ApplicationToRole'],
26             },
27             );
28              
29             return $self;
30             };
31              
32 2     2   5860 no Moose::Role;
  2         3  
  2         7  
33              
34             1;
35              
36             __END__
37              
38             =pod
39              
40             =encoding UTF-8
41              
42             =head1 NAME
43              
44             MooseX::AttributeIndexes::Meta::Role::Composite - Give a either a class or role indexable attributes.
45              
46             =head1 VERSION
47              
48             version 2.000001
49              
50             =head1 AUTHORS
51              
52             =over 4
53              
54             =item *
55              
56             Kent Fredric <kentnl@cpan.org>
57              
58             =item *
59              
60             Jesse Luehrs <doy@cpan.org>
61              
62             =back
63              
64             =head1 COPYRIGHT AND LICENSE
65              
66             This software is copyright (c) 2017 by Kent Fredric <kentfredric@gmail.com>.
67              
68             This is free software; you can redistribute it and/or modify it under
69             the same terms as the Perl 5 programming language system itself.
70              
71             =cut