File Coverage

blib/lib/roles.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package roles;
2             # ABSTRACT: A simple pragma for composing roles.
3              
4 1     1   44956 use strict;
  1         2  
  1         21  
5 1     1   4 use warnings;
  1         2  
  1         18  
6              
7 1     1   266 use MOP ();
  0            
  0            
8              
9             our $VERSION = '0.02';
10             our $AUTHORITY = 'cpan:STEVAN';
11              
12             sub import {
13             shift;
14             my $pkg = caller(0);
15             my $meta = MOP::Util::get_meta( $pkg );
16             my @roles = @_;
17              
18             $meta->set_roles( @roles );
19              
20             MOP::Util::defer_until_UNITCHECK(sub {
21             MOP::Util::compose_roles( MOP::Util::get_meta( $pkg ) )
22             });
23             }
24              
25             1;
26              
27             __END__