X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FMeta%2FAttribute%2FNoGetopt.pm;h=094b690cb616c69f5bd9ee8601fac199c9900c8f;hb=747717044102ba1feba0134bdbcb7aeb3d2d1adb;hp=7dd84b01ce4920c3ff5bb034a3f106e74afb35b4;hpb=7ff9f8b5e03f470cef8d8e630a92d7a18784a1a1;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm b/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm
index 7dd84b0..094b690 100644
--- a/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm
+++ b/lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm
@@ -1,9 +1,7 @@
-
 package MooseX::Getopt::Meta::Attribute::NoGetopt;
-use Moose;
+# ABSTRACT: Optional meta attribute for ignoring params
 
-our $VERSION   = '0.19';
-our $AUTHORITY = 'cpan:STEVAN';
+use Moose;
 
 extends 'Moose::Meta::Attribute'; # << Moose extending Moose :)
    with 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt';
@@ -17,23 +15,15 @@ sub register_implementation { 'MooseX::Getopt::Meta::Attribute::NoGetopt' }
 
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-MooseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring params
-
 =head1 SYNOPSIS
 
   package App;
   use Moose;
-  
+
   with 'MooseX::Getopt';
-  
+
   has 'data' => (
-      metaclass => 'NoGetopt',  # do not attempt to capture this param  
+      metaclass => 'NoGetopt',  # do not attempt to capture this param
       is        => 'ro',
       isa       => 'Str',
       default   => 'file.dat',
@@ -41,40 +31,30 @@ MooseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring
 
 =head1 DESCRIPTION
 
-This is a custom attribute metaclass which can be used to specify 
-that a specific attribute should B<not> be processed by 
-C<MooseX::Getopt>. All you need to do is specify the C<NoGetopt> 
+This is a custom attribute metaclass which can be used to specify
+that a specific attribute should B<not> be processed by
+C<MooseX::Getopt>. All you need to do is specify the C<NoGetopt>
 metaclass.
 
-  has 'foo' => (metaclass => 'NoGetopt', ... );
-
-=head1 METHODS
-
-=over 4
-
-=item B<meta>
-
-=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.
+  has 'foo' => (metaclass => 'MooseX::Getopt::Meta::Attribute::NoGetopt', ... );
 
-=head1 AUTHOR
+=head2 Use 'traits' instead of 'metaclass'
 
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
+You should rarely need to explicitly set the attribute metaclass. It is much
+preferred to simply provide a trait (a role applied to the attribute
+metaclass), which allows other code to further modify the attribute by applying
+additional roles.
 
-Chris Prather  C<< <perigrin@cpan.org> >>
+Therefore, you should first try to do this:
 
-=head1 COPYRIGHT AND LICENSE
+  has 'foo' => (traits => ['NoGetopt', ...], ...);
 
-Copyright 2007-2008 by Infinity Interactive, Inc.
+=head2 Custom Metaclass alias
 
-L<http://www.iinteractive.com>
+This now takes advantage of the Moose 0.19 feature to support
+custom attribute metaclass. This means you can also
+use this as the B<NoGetopt> alias, like so:
 
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+  has 'foo' => (metaclass => 'NoGetopt', cmd_flag => 'f');
 
 =cut