projects
/
gitmo/MooseX-Getopt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Revert "Just skip the test if we don't have Capture::Tiny"
[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;