File Coverage

blib/lib/MooseX/Configuration/Trait/Attribute.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package MooseX::Configuration::Trait::Attribute;
2             BEGIN {
3 1     1   3440 $MooseX::Configuration::Trait::Attribute::VERSION = '0.02';
4             }
5              
6 1     1   273 use Moose::Role;
  1         4112  
  1         5  
7              
8 1     1   5141 use namespace::autoclean;
  1         5625  
  1         4  
9              
10             around interpolate_class => sub {
11             my $orig = shift;
12             my ( $class, $options ) = @_;
13              
14             if ( exists $options->{section} || exists $options->{key} ) {
15             $options->{traits} ||= [];
16             push @{ $options->{traits} }, 'MooseX::Configuration::Trait::Attribute::ConfigKey';
17             }
18              
19             return $class->$orig($options);
20             };
21              
22             1;