Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: MooseX::GetOpt disable in role

by tobyink (Abbot)
on Jun 21, 2013 at 10:58 UTC ( #1040125=note: print w/replies, xml ) Need Help??

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 /);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040125]
[LanX]: yeah PM is very emacsy ;-)
[LanX]: I think tobyink was on a good track with his redesign, pitty the pmdevs/gods didn't try to continue the approach of a modern responsive design
[holli]: *sigh* why has there to be drama in such a thread?
[LanX]: ?
[holli]: Re^2: Let's Make PerlMonks Great Again! -- suggestions and dreams - STFU and write code already (start already)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2017-11-20 19:42 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (292 votes). Check out past polls.