Commit | Line | Data |
bff3807b |
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 |