X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FMeta%2FAttribute.pm;h=082d80781184f155a29fedacc317275ecad86e7b;hb=f969917f5cb650391a698751da4a219bec2fcdec;hp=fdcc5ce47f70547fa91a45d35407d772b85efa96;hpb=3d9a716d3b164a29df44de04ceb99711c0583420;p=gitmo%2FMooseX-Getopt.git diff --git a/lib/MooseX/Getopt/Meta/Attribute.pm b/lib/MooseX/Getopt/Meta/Attribute.pm index fdcc5ce..082d807 100644 --- a/lib/MooseX/Getopt/Meta/Attribute.pm +++ b/lib/MooseX/Getopt/Meta/Attribute.pm @@ -1,9 +1,9 @@ -package ; +package MooseX::Getopt::Meta::Attribute; use Moose; use Moose::Util::TypeConstraints; -our $VERSION = '0.02'; +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'