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   3850 use strict;
  11         22  
  11         270  
2 11     11   46 use warnings;
  11         35  
  11         449  
3              
4             package Footprintless::MixableBase;
5             $Footprintless::MixableBase::VERSION = '1.28';
6             # ABSTRACT: A base class for using mixins
7             # PODNAME: Footprintless::MixableBase
8              
9 11     11   441 use Log::Any;
  11         6248  
  11         84  
10              
11             my $logger = Log::Any->get_logger();
12              
13             sub new {
14 61     61 0 195 my ( $class, $factory, $coordinate, @options ) = @_;
15 61         248 $logger->tracef( "%s coordinate=[%s]\noptions=[%s]", $class, $coordinate, \@options );
16 61         1019 my $self = bless(
17             { factory => $factory,
18             coordinate => $coordinate
19             },
20             $class
21             );
22              
23 61         235 return $self->_init(@options);
24             }
25              
26             sub _init {
27 18     18   48 return $_[0];
28             }
29              
30             1;
31              
32             __END__