line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Starch; |
2
|
|
|
|
|
|
|
our $VERSION = '0.14'; |
3
|
|
|
|
|
|
|
|
4
|
13
|
|
|
13
|
|
646808
|
use Moo::Object qw(); |
|
13
|
|
|
|
|
14900
|
|
|
13
|
|
|
|
|
312
|
|
5
|
13
|
|
|
13
|
|
4962
|
use Starch::Factory; |
|
13
|
|
|
|
|
137
|
|
|
13
|
|
|
|
|
528
|
|
6
|
|
|
|
|
|
|
|
7
|
13
|
|
|
13
|
|
97
|
use strictures 2; |
|
13
|
|
|
|
|
108
|
|
|
13
|
|
|
|
|
584
|
|
8
|
13
|
|
|
13
|
|
2555
|
use namespace::clean; |
|
13
|
|
|
|
|
27
|
|
|
13
|
|
|
|
|
134
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub new { |
11
|
70
|
|
|
70
|
0
|
27671
|
my $class = shift; |
12
|
70
|
|
|
|
|
1532
|
my $args = Moo::Object->BUILDARGS( @_ ); |
13
|
|
|
|
|
|
|
|
14
|
70
|
|
|
|
|
7052
|
my $plugins = delete( $args->{plugins} ); |
15
|
70
|
100
|
|
|
|
1273
|
my $factory = Starch::Factory->new( |
16
|
|
|
|
|
|
|
defined($plugins) ? (plugins=>$plugins) : (), |
17
|
|
|
|
|
|
|
); |
18
|
|
|
|
|
|
|
|
19
|
70
|
|
|
|
|
32809
|
return $factory->manager_class->new( |
20
|
|
|
|
|
|
|
%$args, |
21
|
|
|
|
|
|
|
factory => $factory, |
22
|
|
|
|
|
|
|
); |
23
|
|
|
|
|
|
|
} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
1; |
26
|
|
|
|
|
|
|
__END__ |