X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Getopt.git;a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FMeta%2FAttribute.pm;h=fdcc5ce47f70547fa91a45d35407d772b85efa96;hp=5f29df1f8add9d70a4f56a14c8d13dda0c809bd1;hb=3d9a716d3b164a29df44de04ceb99711c0583420;hpb=e2911e34263bf6cfcd0e81fe5c801bdd71e48a29 diff --git a/lib/MooseX/Getopt/Meta/Attribute.pm b/lib/MooseX/Getopt/Meta/Attribute.pm index 5f29df1..fdcc5ce 100644 --- a/lib/MooseX/Getopt/Meta/Attribute.pm +++ b/lib/MooseX/Getopt/Meta/Attribute.pm @@ -1,5 +1,5 @@ -package MooseX::Getopt::Meta::Attribute; +package ; use Moose; use Moose::Util::TypeConstraints; @@ -18,9 +18,10 @@ has 'cmd_flag' => ( # without polluting the built-in types subtype '_MooseX_Getopt_CmdAliases' => as 'ArrayRef' - => where { 1 }; + => where { 1 }; + coerce '_MooseX_Getopt_CmdAliases' - => from 'Value' + => from 'Str' => via { [$_] }; has 'cmd_aliases' => ( @@ -125,6 +126,8 @@ to cpan-RT. Stevan Little Estevan@iinteractive.comE +Brandon L. Black, Eblblack@gmail.comE + =head1 COPYRIGHT AND LICENSE Copyright 2007 by Infinity Interactive, Inc.