File Coverage

blib/lib/Mite/Trait/HasMOP.pm
Criterion Covered Total %
statement 11 20 55.0
branch n/a
condition n/a
subroutine 4 11 36.3
pod n/a
total 15 31 48.3


line stmt bran cond sub pod time code
1 108     108   2186 use 5.010001;
  108         355  
2 108     108   588 use strict;
  108         203  
  108         2354  
3 108     108   515 use warnings;
  108         212  
  108         4843  
4              
5             use Mite::Miteception -role, -all;
6 108     108   633  
  108         256  
  108         819  
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.010008';
9              
10             requires qw(
11             _mop_metaclass
12             _mop_attribute_metaclass
13             );
14              
15             my $self = shift;
16              
17 0     0     return sprintf <<'CODE', $self->_mop_metaclass, B::perlstring( $self->name ), B::perlstring( $self->name ), $self->_compile_mop_attributes, $self->_compile_mop_required_methods, $self->_compile_mop_modifiers, $self->_compile_mop_methods, $self->_compile_mop_tc;
18             {
19 0           my $PACKAGE = %s->initialize( %s, package => %s );
20              
21             %s
22             %s
23             %s
24             %s
25             %s
26             }
27             CODE
28             }
29              
30             return '';
31             }
32              
33 0     0     return '';
34             }
35              
36             return '';
37 0     0     }
38              
39             my $self = shift;
40             return sprintf <<'CODE', $self->name, B::perlstring( $self->name );
41 0     0     $PACKAGE->add_method(
42             "meta" => Moose::Meta::Method::Meta->_new(
43             name => "meta",
44             body => \&%s::meta,
45 0     0     package_name => %s,
46 0           ),
47             );
48             CODE
49             }
50              
51             return sprintf ' Moose::Util::TypeConstraints::find_or_create_isa_type_constraint( %s );',
52             B::perlstring( shift->name );
53             }
54              
55             return '';
56             }
57              
58 0     0     1;