package MooseX::Getopt::Strict; # ABSTRACT: only make options for attributes with the Getopt metaclass our $VERSION = '0.76'; use Moose::Role; use namespace::autoclean; with 'MooseX::Getopt'; around '_compute_getopt_attrs' => sub { my $next = shift; my ( $class, @args ) = @_; grep { $_->does("MooseX::Getopt::Meta::Attribute::Trait") } $class->$next(@args); }; 1; __END__ =pod =encoding UTF-8 =head1 NAME MooseX::Getopt::Strict - only make options for attributes with the Getopt metaclass =head1 VERSION version 0.76 =head1 DESCRIPTION This is an stricter version of C which only processes the attributes if they explicitly set as C attributes. All other attributes are ignored by the command line handler. =head1 SUPPORT Bugs may be submitted through L (or L). There is also a mailing list available for users of this distribution, at L. There is also an irc channel available for users of this distribution, at L on C|irc://irc.perl.org/#moose>. =head1 AUTHOR Stevan Little =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2007 by Infinity Interactive, Inc. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut