* Add current $VERSION to all files.

[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt / Strict.pm

diff --git a/lib/MooseX/Getopt/Strict.pm b/lib/MooseX/Getopt/Strict.pm
index f845d69..e61cfe4 100644 (file)
--- a/lib/MooseX/Getopt/Strict.pm
+++ b/lib/MooseX/Getopt/Strict.pm
@@ -1,19 +1,25 @@
 
 package MooseX::Getopt::Strict;
+
+our $VERSION   = '0.150001';
+
 use Moose::Role;
 
 with 'MooseX::Getopt';
 
 around '_compute_getopt_attrs' => sub {
     my $next = shift;
-    my ( $class, @args ) = @_;
-    grep { 
-        $_->isa("MooseX::Getopt::Meta::Attribute") 
+    my ($class, @args) = @_;
+
+    return grep {
+        $_->does('MooseX::Getopt::Meta::Attribute::Trait')
     } $class->$next(@args);
 };
 
+
 1;
 
+
 __END__
 
 =pod
@@ -21,13 +27,13 @@ __END__
 =head1 NAME
 
 MooseX::Getopt::Strict - only make options for attrs with the Getopt metaclass
-    
+
 =head1 DESCRIPTION
 
-This is an stricter version of C<MooseX::Getopt> which only processes the 
+This is an stricter version of C<MooseX::Getopt> which only processes the
 attributes if they explicitly set as C<Getopt> attributes. All other attributes
 are ignored by the command line handler.
-    
+
 =head1 METHODS
 
 =over 4
@@ -36,9 +42,17 @@ are ignored by the command line handler.
 
 =back
 
+=head1 SEE ALSO
+
+=over 4
+
+=item L<MooseX::Getopt>
+
+=back
+
 =head1 BUGS
 
-All complex software has bugs lurking in it, and this module is no 
+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.