3 package MooseX::Getopt::Strict;
6 with qw/MooseX::Getopt/;
8 sub _compute_getopt_attrs {
9 my ( $class, @args ) = @_;
11 grep { $_->isa("MooseX::Getopt::Meta::Attribute") } $class->MooseX::Getopt::_compute_getopt_attrs(@args);
22 MooseX::Getopt::Strict - only make options for attrs with the Getopt metaclass
32 Is a section devoted to making the #!#%^ stupid pod coverage test pass. Stevan, I do
33 hope you're actually reading this.