-#!/usr/bin/perl
package MooseX::Getopt::Strict;
use Moose::Role;
-with qw/MooseX::Getopt/;
+with 'MooseX::Getopt';
sub _compute_getopt_attrs {
my ( $class, @args ) = @_;
-
- grep { $_->isa("MooseX::Getopt::Meta::Attribute") } $class->MooseX::Getopt::_compute_getopt_attrs(@args);
+ grep {
+ $_->isa("MooseX::Getopt::Meta::Attribute")
+ } $class->MooseX::Getopt::_compute_getopt_attrs(@args);
}
__PACKAGE__;