File Coverage

blib/lib/App/GHPT/Wrapper/OurMoose/Role.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             package App::GHPT::Wrapper::OurMoose::Role;
2              
3 1     1   34289 use App::GHPT::Wrapper::Ourperl;
  1         4  
  1         9  
4              
5             our $VERSION = '1.000012';
6              
7 1     1   5974 use Import::Into;
  1         2  
  1         27  
8 1     1   5 use Moose::Exporter;
  1         2  
  1         9  
9 1     1   61 use Moose::Role ();
  1         3  
  1         32  
10 1     1   521 use MooseX::SemiAffordanceAccessor ();
  1         8273  
  1         33  
11 1     1   8 use namespace::autoclean ();
  1         2  
  1         173  
12              
13             my ($import) = Moose::Exporter->setup_import_methods(
14             install => [ 'unimport', 'init_meta' ],
15             also => ['Moose::Role'],
16             );
17              
18             sub import {
19 2     2   15 my $for_role = caller();
20              
21 2         13 $import->( undef, { into => $for_role } );
22 2         10992 MooseX::SemiAffordanceAccessor->import( { into => $for_role } );
23              
24 2         10335 my $caller_level = 1;
25 2         22 App::GHPT::Wrapper::Ourperl->import::into($caller_level);
26 2         11999 namespace::autoclean->import::into($caller_level);
27             }
28              
29             1;