File Coverage

blib/lib/MooseX/AttributeTags/PRole.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1 1     1   17 use 5.008;
  1         4  
2 1     1   5 use strict;
  1         2  
  1         28  
3 1     1   5 use warnings;
  1         1  
  1         120  
4              
5             package MooseX::AttributeTags::PRole;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.005';
9              
10 1     1   503 use MooseX::Role::Parameterized;
  1         87008  
  1         6  
11              
12             parameter attributes => (
13             isa => 'HashRef[ArrayRef]',
14             required => 1,
15             );
16              
17             role {
18             my $p = shift;
19             my %a = %{ $p->attributes };
20            
21             for my $name (sort keys %a)
22             {
23             has $name => @{ $a{$name} };
24             }
25             };
26              
27             1;
28              
29              
30             __END__
31              
32             =pod
33              
34             =encoding utf-8
35              
36             =head1 NAME
37              
38             MooseX::AttributeTags::PRole - guts of MooseX::AttributeTags
39              
40             =head1 DESCRIPTION
41              
42             No user-serviceable parts within.
43              
44             =head1 BUGS
45              
46             Please report any bugs to
47             L<http://rt.cpan.org/Dist/Display.html?Queue=MooseX-AttributeTags>.
48              
49             =head1 SEE ALSO
50              
51             L<MooseX::AttributeTags>.
52              
53             =head1 AUTHOR
54              
55             Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
56              
57             =head1 COPYRIGHT AND LICENCE
58              
59             This software is copyright (c) 2013, 2017, 2019 by Toby Inkster.
60              
61             This is free software; you can redistribute it and/or modify it under
62             the same terms as the Perl 5 programming language system itself.
63              
64             =head1 DISCLAIMER OF WARRANTIES
65              
66             THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
67             WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
68             MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
69