lib/MooseX/Getopt/Strict.pm

   1
   2 package MooseX::Getopt::Strict;
   3 use Moose::Role;
   4
   5 with 'MooseX::Getopt';
   6
   7 sub _compute_getopt_attrs {
   8     my ( $class, @args ) = @_;
   9     grep {
  10         $_->isa("MooseX::Getopt::Meta::Attribute")
  11     } $class->MooseX::Getopt::_compute_getopt_attrs(@args);
  12 }
  13
  14 __PACKAGE__;
  15
  16 __END__
  17
  18 =pod
  19
  20 =head1 NAME
  21
  22 MooseX::Getopt::Strict - only make options for attrs with the Getopt metaclass
  23
  24 =head1 SYNOPSIS
  25
  26     # see MooseX::Getopt
  27
  28 =over 4
  29
  30 =item meta
  31
  32 Is a section devoted to making the #!#%^ stupid pod coverage test pass. Stevan, I do
  33 hope you're actually reading this.
  34
  35 Love,
  36 Yuval
  37
  38 =back
  39
  40 =cut