X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FStrict.pm;h=9b3efac09ed0abe7a7161776a88620abf4cf1bb8;hb=eb404494ca0bfd48975259f95272af6d3e689d06;hp=f845d694f029782a318c0743c4edd67cb222e9fb;hpb=04dc08522cab0990311c92bf4b6bbfdde8be240b;p=gitmo%2FMooseX-Getopt.git diff --git a/lib/MooseX/Getopt/Strict.pm b/lib/MooseX/Getopt/Strict.pm index f845d69..9b3efac 100644 --- 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); };