line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Starch; |
2
|
13
|
|
|
13
|
|
642078
|
use 5.008001; |
|
13
|
|
|
|
|
60
|
|
3
|
13
|
|
|
13
|
|
77
|
use strictures 2; |
|
13
|
|
|
|
|
120
|
|
|
13
|
|
|
|
|
586
|
|
4
|
|
|
|
|
|
|
our $VERSION = '0.11'; |
5
|
|
|
|
|
|
|
|
6
|
13
|
|
|
13
|
|
8459
|
use Starch::Factory; |
|
13
|
|
|
|
|
44
|
|
|
13
|
|
|
|
|
502
|
|
7
|
13
|
|
|
13
|
|
151
|
use Moo::Object qw(); |
|
13
|
|
|
|
|
31
|
|
|
13
|
|
|
|
|
263
|
|
8
|
|
|
|
|
|
|
|
9
|
13
|
|
|
13
|
|
66
|
use namespace::clean; |
|
13
|
|
|
|
|
50
|
|
|
13
|
|
|
|
|
95
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub new { |
12
|
70
|
|
|
70
|
0
|
28222
|
my $class = shift; |
13
|
70
|
|
|
|
|
1596
|
my $args = Moo::Object->BUILDARGS( @_ ); |
14
|
|
|
|
|
|
|
|
15
|
70
|
|
|
|
|
7397
|
my $plugins = delete( $args->{plugins} ); |
16
|
70
|
100
|
|
|
|
1374
|
my $factory = Starch::Factory->new( |
17
|
|
|
|
|
|
|
defined($plugins) ? (plugins=>$plugins) : (), |
18
|
|
|
|
|
|
|
); |
19
|
|
|
|
|
|
|
|
20
|
70
|
|
|
|
|
34050
|
return $factory->manager_class->new( |
21
|
|
|
|
|
|
|
%$args, |
22
|
|
|
|
|
|
|
factory => $factory, |
23
|
|
|
|
|
|
|
); |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
__END__ |