1 package MooseX::Getopt::Meta::Attribute;
2 # ABSTRACT: Optional meta attribute for custom option names
5 use Moose::Util::TypeConstraints;
7 extends 'Moose::Meta::Attribute'; # << Moose extending Moose :)
8 with 'MooseX::Getopt::Meta::Attribute::Trait';
12 # register this as a metaclass alias ...
13 package # stop confusing PAUSE
14 Moose::Meta::Attribute::Custom::Getopt;
15 sub register_implementation { 'MooseX::Getopt::Meta::Attribute' }
24 with 'MooseX::Getopt';
27 metaclass => 'MooseX::Getopt::Meta::Attribute',
30 default => 'file.dat',
32 # tells MooseX::Getopt to use --somedata as the
33 # command line flag instead of the normal
34 # autogenerated one (--data)
35 cmd_flag => 'somedata',
37 # tells MooseX::Getopt to also allow --moosedata,
38 # -m, and -d as aliases for this same option on
40 cmd_aliases => [qw/ moosedata m d /],
42 # Or, you can use a plain scalar for a single alias:
48 This is a custom attribute metaclass which can be used to specify a
49 the specific command line flag to use instead of the default one
50 which L<MooseX::Getopt> will create for you.
52 This is certainly not the prettiest way to go about this, but for
53 now it works for those who might need such a feature.
55 =head2 Custom Metaclass alias
57 This now takes advantage of the Moose 0.19 feature to support
58 custom attribute metaclass aliases. This means you can also
59 use this as the B<Getopt> alias, like so:
61 has 'foo' => (metaclass => 'Getopt', cmd_flag => 'f');
65 Changes the commandline flag to be this value, instead of the default,
66 which is the same as the attribute name.
68 =method B<cmd_aliases>
70 Adds more aliases for this commandline flag, useful for short options
73 =method B<has_cmd_flag>
75 =method B<has_cmd_aliases>