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
|
package MooXCmdTest::Cmd::Tested;
use strict;
use warnings;
BEGIN
{
my $moodel = $ENV{WHICH_MOODEL} || "Moo";
eval "use $moodel;";
$@ and die $@;
$moodel->import;
}
use MooX::ConfigFromFile
config_prefix => "MooXCmdTest",
config_prefix_map_separator => ".";
use MooX::Cmd with_config_from_file => 1;
has confidential_setting => (
is => "ro",
builder => "_build_confidential_attribute",
lazy => 1,
);
sub _build_confidential_attribute { time }
sub execute { @_ }
1;
|
