package My::App;
use Moose;
with 'MooseX::Getopt::Dashes';
# Will be called as --some-thingy, not --some_thingy
has 'some_thingy' => (
is => 'ro',
isa => 'Str',
default => 'foo'
);
# Will be called as --another_thingy, not --another-thingy
has 'another_thingy' => (
traits => [ 'Getopt' ],
cmd_flag => 'another_thingy'
is => 'ro',
isa => 'Str',
default => 'foo'
);
# use as MooseX::Getopt
You can selectively disable this on a per-attribute basis by supplying a cmd_flag argument with the command flag you'd like for a given attribute. No underscore to dash replacement will be done on the "cmd_flag".
There is also a mailing list available for users of this distribution, at <http://lists.perl.org/list/moose.html>.
There is also an irc channel available for users of this distribution, at "#moose" on "irc.perl.org" <irc://irc.perl.org/#moose>.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.