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 :)
# 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 'Value'
+ => from 'Str'
=> via { [$_] };
has 'cmd_aliases' => (
no Moose;
# register this as a metaclass alias ...
-package Moose::Meta::Attribute::Custom::Getopt;
+package # stop confusing PAUSE
+ Moose::Meta::Attribute::Custom::Getopt;
sub register_implementation { 'MooseX::Getopt::Meta::Attribute' }
1;
Stevan Little E<lt>stevan@iinteractive.comE<gt>
+Brandon L. Black, E<lt>blblack@gmail.comE<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright 2007 by Infinity Interactive, Inc.