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

#!/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
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