X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FMeta%2FAttribute%2FTrait%2FNoGetopt.pm;h=f3d0846fb4370f5de8d1892a21703978b01da76c;hb=669588e263ff229c94d602596f23cc91deefed75;hp=84f2067c93c3fc273f088202e96593c756d87ace;hpb=fff9a1f87fa035f2810fd2f621c71d8ff94590e6;p=gitmo%2FMooseX-Getopt.git diff --git a/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm b/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm index 84f2067..f3d0846 100644 --- a/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm +++ b/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm @@ -1,10 +1,7 @@ - package MooseX::Getopt::Meta::Attribute::Trait::NoGetopt; -use Moose::Role; - -our $VERSION = '0.27'; -our $AUTHORITY = 'cpan:STEVAN'; +# ABSTRACT: Optional meta attribute trait for ignoring params +use Moose::Role; no Moose::Role; # register this as a metaclass alias ... @@ -14,23 +11,15 @@ sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt' 1; -__END__ - -=pod - -=head1 NAME - -MooseX::Getopt::Meta::Attribute::Trait::NoGetopt - Optional meta attribute trait for ignoring params - =head1 SYNOPSIS package App; use Moose; - + with 'MooseX::Getopt'; - + has 'data' => ( - traits => [ 'NoGetopt' ], # do not attempt to capture this param + traits => [ 'NoGetopt' ], # do not attempt to capture this param is => 'ro', isa => 'Str', default => 'file.dat', @@ -38,38 +27,11 @@ MooseX::Getopt::Meta::Attribute::Trait::NoGetopt - Optional meta attribute trait =head1 DESCRIPTION -This is a custom attribute metaclass trait which can be used to -specify that a specific attribute should B be processed by -C. All you need to do is specify the C +This is a custom attribute metaclass trait which can be used to +specify that a specific attribute should B be processed by +C. All you need to do is specify the C metaclass trait. has 'foo' => (traits => [ 'NoGetopt', ... ], ... ); -=head1 METHODS - -=over 4 - -=item B - -=back - -=head1 BUGS - -All complex software has bugs lurking in it, and this module is no -exception. If you find a bug please either email me, or add the bug -to cpan-RT. - -=head1 AUTHOR - -Stevan Little Estevan@iinteractive.comE - -=head1 COPYRIGHT AND LICENSE - -Copyright 2007-2008 by Infinity Interactive, Inc. - -L - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut