Re: MooseX::GetOpt disable in role

[tobyink]

You haven't posted the code for your disable_getopt_attribute function, but I guess it looks a little like this:

package My::App;

use Moose::Role;

# ... etc

sub disable_getopt_attribute {
  has("+$_", traits => ['NoGetopt']) for @_;
}

And you're calling it like this from classes:

package My::Script;
use Moose;
with "My::App";
My::App::disable_getopt_attribute(qw/ foo bar /);

Try changing the definition to this:

package My::App;

use Moose::Role;

# ... etc

sub disable_getopt_attribute {
  my $class = shift;
  my $has   = $class->can("has");
  $has->("+$_", traits => ['NoGetopt']) for @_;
}

And calling it like this:

package My::Script;
use Moose;
with "My::App";
__PACKAGE__->disable_getopt_attribute(qw/ foo bar /);

This way, the has function that gets called, is My::Script's copy of has; not My::App's copy of it.

[Boldra]

Thanks Tobyink!

Your guess about how I was calling it was spot-on, and your solution works beautifully. I'm very grateful!

[markjugg]

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;
}