File Coverage

blib/lib/Footprintless/MixableBase.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1 11     11   5049 use strict;
  11         21  
  11         268  
2 11     11   48 use warnings;
  11         37  
  11         453  
3              
4             package Footprintless::MixableBase;
5             $Footprintless::MixableBase::VERSION = '1.29';
6             # ABSTRACT: A base class for using mixins
7             # PODNAME: Footprintless::MixableBase
8              
9 11     11   390 use Log::Any;
  11         6951  
  11         94  
10              
11             my $logger = Log::Any->get_logger();
12              
13             sub new {
14 61     61 0 223 my ( $class, $factory, $coordinate, @options ) = @_;
15 61         323 $logger->tracef( "%s coordinate=[%s]\noptions=[%s]", $class, $coordinate, \@options );
16 61         1137 my $self = bless(
17             { factory => $factory,
18             coordinate => $coordinate
19             },
20             $class
21             );
22              
23 61         272 return $self->_init(@options);
24             }
25              
26             sub _init {
27 18     18   57 return $_[0];
28             }
29              
30             1;
31              
32             __END__