File Coverage

blib/lib/MooX/PluginKit/ConsumerBase.pm
Criterion Covered Total %
statement 15 18 83.3
branch 1 2 50.0
condition n/a
subroutine 5 8 62.5
pod 0 5 0.0
total 21 33 63.6


line stmt bran cond sub pod time code
1             package MooX::PluginKit::ConsumerBase;
2              
3             $MooX::PluginKit::ConsumerBase::VERSION = '0.04';
4              
5             =head1 NAME
6              
7             MooX::PluginKit::ConsumerBase - Parent class for PluginKit consumers.
8              
9             =head2 DESCRIPTION
10              
11             This module is a total hack to get around
12             L.
13              
14             =cut
15              
16 3     3   1532 use Moo::Object qw();
  3         5  
  3         80  
17              
18 3     3   15 use strictures 2;
  3         20  
  3         109  
19 3     3   513 use namespace::clean;
  3         5  
  3         16  
20              
21             sub new {
22 18     18 0 162 my $class = shift;
23              
24 18         281 my $args = $class->BUILDARGS( @_ );
25 18         39 my $factory = $args->{plugin_factory};
26 18 50       119 $class = $factory->build_class( $class ) if $factory;
27              
28 18         5188 return bless {}, $class;
29             }
30              
31 36     36 0 105 sub BUILDARGS { Moo::Object::BUILDARGS(@_) }
32 0     0 0   sub NORMALIZE_BUILDARGS { Moo::Object::NORMALIZE_BUILDARGS(@_) }
33 0     0 0   sub TRANSFORM_BUILDARGS { Moo::Object::TRANSFORM_BUILDARGS(@_) }
34 0     0 0   sub FINALIZE_BUILDARGS { Moo::Object::FINALIZE_BUILDARGS(@_) }
35              
36             1;
37             __END__