projects
/
gitmo/MooseX-Getopt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a6efd499f9bcd477d36f1fa3ef2639817592a684
[gitmo/MooseX-Getopt.git]
/
t
/
version_with_simpleconfig.pl
1
package WithOptionsAndSimpleConfig;
2
use Moose;
3
4
with 'MooseX::Getopt';
5
6
has print_version => (
7
traits => [qw(Getopt)],
8
isa => 'Bool',
9
is => 'ro',
10
cmd_flag => 'version',
11
cmd_aliases => 'v',
12
);
13
14
has configfile => (
15
traits => [qw(NoGetopt)],
16
isa => 'Str',
17
coerce => 1,
18
is => 'ro',
19
);
20
21
with 'MooseX::SimpleConfig';
22
23
sub run {
24
my ($self) = @_;
25
26
if ($self->print_version) {
27
print "SUCCESS\n";
28
exit;
29
}
30
}
31
32
package main;
33
WithOptionsAndSimpleConfig->new_with_options;