make ::Strict work with the trait stuff

[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..9b3efac 100644 (file)
--- a/lib/MooseX/Getopt/Strict.pm
+++ b/lib/MooseX/Getopt/Strict.pm
@@ -7,8 +7,8 @@ with 'MooseX::Getopt';
 around '_compute_getopt_attrs' => sub {
     my $next = shift;
     my ( $class, @args ) = @_;
-    grep { 
-        $_->isa("MooseX::Getopt::Meta::Attribute") 
+    grep {
+        $_->does("MooseX::Getopt::Meta::Attribute::Trait")
     } $class->$next(@args);
 };