/
Jumpstart.pm
68 lines (46 loc) · 1.45 KB
/
Jumpstart.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
use MooseX::Declare;
class ReactionX::Jumpstart
with ReactionX::Jumpstart::Generating
with ReactionX::Jumpstart::Namespacing
with ReactionX::Jumpstart::SubBuilding
with ReactionX::Jumpstart::Stashing {
use MooseX::Types::Moose qw( Str Object );
use Path::Class qw( dir );
use signatures;
use aliased 'ReactionX::Jumpstart::Application';
use aliased 'ReactionX::Jumpstart::Config';
our $VERSION = '0.01';
has application_builder => (
isa => Object,
required => 1,
lazy_build => 1,
handles => { build_application => 'JUMPSTART' },
);
has config_builder => (
isa => Object,
required => 1,
lazy_build => 1,
handles => { build_config => 'JUMPSTART' },
);
method JUMPSTART {
$self->build_application;
$self->build_config;
}
method find_root_path {
my $project = $self->project_namespace;
$project =~ s{::}{-}g;
return dir( 'test', lc $project );
}
method _build_application_builder {
my $project = $self->project_namespace;
my $ui = $self->ui_namespace;
$self->set_stash(
project_namespace => $project,
ui_namespace => $ui,
);
return $self->new_sub_builder(Application);
}
method _build_config_builder {
return $self->new_sub_builder(Config);
}
}