File Coverage

blib/lib/MooX/InsideOut.pm
Criterion Covered Total %
statement 19 19 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 26 27 96.3


line stmt bran cond sub pod time code
1             package MooX::InsideOut;
2 1     1   25020 use strict;
  1         1  
  1         24  
3 1     1   3 use warnings;
  1         1  
  1         46  
4              
5             our $VERSION = '0.001003';
6             $VERSION = eval $VERSION;
7              
8 1     1   4 use Moo ();
  1         9  
  1         13  
9 1     1   421 use Moo::Role ();
  1         5834  
  1         18  
10 1     1   4 use Carp ();
  1         1  
  1         60  
11              
12             sub import {
13 3     3   1717 my $class = shift;
14 3         5 my $target = caller;
15              
16 3 50       10 my $con = Moo->_constructor_maker_for($target)
17             or Carp::croak "MooX::InsideOut can only be used on Moo classes.";
18              
19 3         15714 Moo::Role->apply_roles_to_object(
20             Moo->_accessor_maker_for($target),
21             'MooX::InsideOut::Role::GenerateAccessor',
22             );
23             }
24              
25             1;
26              
27             __END__