foo

[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt / Strict.pm

diff --git a/lib/MooseX/Getopt/Strict.pm b/lib/MooseX/Getopt/Strict.pm
new file mode 100644 (file)
index 0000000..d5cb38a
--- /dev/null
+++ b/lib/MooseX/Getopt/Strict.pm
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+package MooseX::Getopt::Strict;
+use Moose::Role;
+
+with qw/MooseX::Getopt/;
+
+sub _compute_getopt_attrs {
+    my ( $class, @args ) = @_;
+
+    grep { $_->isa("MooseX::Getopt::Meta::Attribute") } $class->MooseX::Getopt::_compute_getopt_attrs(@args);
+}
+
+__PACKAGE__;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::Getopt::Strict - only make options for attrs with the Getopt metaclass
+
+=head1 SYNOPSIS
+
+    # see MooseX::Getopt
+
+=over 4
+
+=item meta
+
+Is a section devoted to making the #!#%^ stupid pod coverage test pass. Stevan, I do
+hope you're actually reading this.
+
+Love,
+Yuval
+
+=back
+
+=cut