File Coverage

lib/MooseX/AttributeIndexes/Meta/Role/ApplicationToClass.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   3741 use 5.006; # our, pragmas
  2         7  
2 2     2   9 use strict;
  2         4  
  2         50  
3 2     2   8 use warnings;
  2         4  
  2         137  
4              
5             package MooseX::AttributeIndexes::Meta::Role::ApplicationToClass;
6              
7             our $VERSION = '2.000000';
8              
9             # ABSTRACT: Make a class have indexable attributes.
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   617 use Moose::Role qw( around );
  2         389477  
  2         12  
14              
15             around apply => sub {
16             my $orig = shift;
17             my $self = shift;
18             my ( $role, $class ) = @_;
19              
20             Moose::Util::MetaRole::apply_base_class_roles(
21             for => $class->name,
22             roles => [ 'MooseX::AttributeIndexes::Provider', 'MooseX::AttributeIndexes::Provider::FromAttributes', ],
23             );
24              
25             $self->$orig( $role, $class );
26             };
27              
28 2     2   5870 no Moose::Role;
  2         4  
  2         8  
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             MooseX::AttributeIndexes::Meta::Role::ApplicationToClass - Make a class have indexable attributes.
41              
42             =head1 VERSION
43              
44             version 2.000000
45              
46             =head1 AUTHORS
47              
48             =over 4
49              
50             =item *
51              
52             Kent Fredric <kentnl@cpan.org>
53              
54             =item *
55              
56             Jesse Luehrs <doy@cpan.org>
57              
58             =back
59              
60             =head1 COPYRIGHT AND LICENSE
61              
62             This software is copyright (c) 2014 by Kent Fredric <kentfredric@gmail.com>.
63              
64             This is free software; you can redistribute it and/or modify it under
65             the same terms as the Perl 5 programming language system itself.
66              
67             =cut