use Moose;
use Moose::Util::TypeConstraints;
-our $VERSION = '0.04';
+our $VERSION = '0.19';
our $AUTHORITY = 'cpan:STEVAN';
extends 'Moose::Meta::Attribute'; # << Moose extending Moose :)
-
-has 'cmd_flag' => (
- is => 'rw',
- isa => 'Str',
- predicate => 'has_cmd_flag',
-);
-
-# This subtype is to support scalar -> arrayref coercion
-# without polluting the built-in types
-subtype '_MooseX_Getopt_CmdAliases' => as 'ArrayRef';
-
-coerce '_MooseX_Getopt_CmdAliases'
- => from 'Str'
- => via { [$_] };
-
-has 'cmd_aliases' => (
- is => 'rw',
- isa => '_MooseX_Getopt_CmdAliases',
- predicate => 'has_cmd_aliases',
- coerce => 1,
-);
+ with 'MooseX::Getopt::Meta::Attribute::Trait';
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;
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>