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=082d80781184f155a29fedacc317275ecad86e7b;hp=dada97c203997b4e41d27d6030421aa20564f705;hb=f969917f5cb650391a698751da4a219bec2fcdec;hpb=edfb736cb47388616f04aef731cb0cd047bcaa91 diff --git a/lib/MooseX/Getopt/Meta/Attribute.pm b/lib/MooseX/Getopt/Meta/Attribute.pm index dada97c..082d807 100644 --- a/lib/MooseX/Getopt/Meta/Attribute.pm +++ b/lib/MooseX/Getopt/Meta/Attribute.pm @@ -3,7 +3,7 @@ package MooseX::Getopt::Meta::Attribute; use Moose; use Moose::Util::TypeConstraints; -our $VERSION = '0.03'; +our $VERSION = '0.04'; our $AUTHORITY = 'cpan:STEVAN'; extends 'Moose::Meta::Attribute'; # << Moose extending Moose :) @@ -16,9 +16,7 @@ has 'cmd_flag' => ( # This subtype is to support scalar -> arrayref coercion # without polluting the built-in types -subtype '_MooseX_Getopt_CmdAliases' - => as 'ArrayRef' - => where { 1 }; +subtype '_MooseX_Getopt_CmdAliases' => as 'ArrayRef'; coerce '_MooseX_Getopt_CmdAliases' => from 'Str'