Help for this page

Select Code to Download


  1. or download this
    package My::App;

...
sub disable_getopt_attribute {
  has("+$_", traits => ['NoGetopt']) for @_;
}
  2. or download this
    package My::Script;
use Moose;
with "My::App";
My::App::disable_getopt_attribute(qw/ foo bar /);
  3. or download this
    package My::App;

...
  my $has   = $class->can("has");
  $has->("+$_", traits => ['NoGetopt']) for @_;
}
  4. or download this
    package My::Script;
use Moose;
with "My::App";
__PACKAGE__->disable_getopt_attribute(qw/ foo bar /);