If you uncomment the one line in the code below, you get a "Illegal inherited options 
=> (getopt_name)" error.  Is there any way around this?

====

use Moose::Role;

has role_option => (
   traits      => [ qw< MooseX::Getopt::Defanged::Option > ],
   is          => 'rw',
   isa         => 'Str',
   getopt_name => 'role',
);

has modified_attribute => (
   is      => 'rw',
   isa     => 'Str',
);


package Consumer;

use Moose;

with qw< Role MooseX::Getopt::Defanged >;

has consumer_option => (
   traits      => [ qw< MooseX::Getopt::Defanged::Option > ],
   is          => 'rw',
   isa         => 'Str',
   getopt_name => 'consumer',
);

has '+modified_attribute' => (
   traits      => [ qw< MooseX::Getopt::Defanged::Option > ],
#    getopt_name => 'modified',
);

Reply via email to