* cmd_flag parameter now works correctly.

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

diff --git a/lib/MooseX/Getopt/Strict.pm b/lib/MooseX/Getopt/Strict.pm
index 33ca1e0..3c9ef39 100644 (file)
--- a/lib/MooseX/Getopt/Strict.pm
+++ b/lib/MooseX/Getopt/Strict.pm
@@ -6,9 +6,10 @@ 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);
 };
 
@@ -50,7 +51,7 @@ Yuval Kogman  C<< <nuffin@cpan.org> >>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
 
 L<http://www.iinteractive.com>