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


package MooseX::Getopt::Strict;
use Moose::Role;

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