Re^2: MooseX::GetOpt disable in role


No such thing as a small change
	PerlMonks

Re^2: MooseX::GetOpt disable in role

by markjugg (Curate)

on Aug 06, 2013 at 19:25 UTC ( [id://1048169]=note: print w/replies, xml )

Need Help??

in reply to Re: MooseX::GetOpt disable in role
in thread MooseX::GetOpt disable in role

If you always want to disable the same attributes for MooseX::Getopt from your role, then this worked for me:

package My::Role::Getopt {
    use Moose::Role;
    with 'My::Role::DB'; 
    with 'My::Role::Log';
    with 'MooseX::Getopt::Dashes';

    before 'process_argv' => sub {
        my $self = shift;
        my @attrs_to_exclude_from_getopt = (
             '+db',
             ...
        );
        for my $attr (@attrs_to_exclude_from_getopt) {
            $self->meta->add_attribute($attr => (traits => ['NoGetopt'
+]));
        }
    };
    no Moose::Role;
}
[download]

Mark Stosberg