lib/MooseX/Getopt/Strict.pm

   1 #!/usr/bin/perl
   2
   3 package MooseX::Getopt::Strict;
   4 use Moose::Role;
   5
   6 with qw/MooseX::Getopt/;
   7
   8 sub _compute_getopt_attrs {
   9     my ( $class, @args ) = @_;
  10
  11     grep { $_->isa("MooseX::Getopt::Meta::Attribute") } $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