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   34951 use App::GHPT::Wrapper::Ourperl;
  1         2  
  1         9  
4              
5             our $VERSION = '1.001000';
6              
7 1     1   5973 use Import::Into;
  1         2  
  1         28  
8 1     1   7 use Moose::Exporter;
  1         3  
  1         11  
9 1     1   66 use Moose::Role ();
  1         3  
  1         34  
10 1     1   677 use MooseX::SemiAffordanceAccessor ();
  1         8720  
  1         33  
11 1     1   9 use namespace::autoclean ();
  1         16  
  1         187  
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   17 my $for_role = caller();
20              
21 2         14 $import->( undef, { into => $for_role } );
22 2         11731 MooseX::SemiAffordanceAccessor->import( { into => $for_role } );
23              
24 2         10630 my $caller_level = 1;
25 2         36 App::GHPT::Wrapper::Ourperl->import::into($caller_level);
26 2         32990 namespace::autoclean->import::into($caller_level);
27             }
28              
29             1;