| MouseX-Getopt documentation | Contained in the MouseX-Getopt distribution. |
MouseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring params
package App;
use Mouse;
with 'MouseX::Getopt';
has 'data' => (
metaclass => 'NoGetopt', # do not attempt to capture this param
is => 'ro',
isa => 'Str',
default => 'file.dat',
);
This is a custom attribute metaclass which can be used to specify
that a specific attribute should not be processed by
MouseX::Getopt. All you need to do is specify the NoGetopt
metaclass.
has 'foo' => (metaclass => 'NoGetopt', ... );
This software is copyright (c) 2010 by Infinity Interactive, Inc.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
| MouseX-Getopt documentation | Contained in the MouseX-Getopt distribution. |
package MouseX::Getopt::Meta::Attribute::NoGetopt; BEGIN { $MouseX::Getopt::Meta::Attribute::NoGetopt::AUTHORITY = 'cpan:STEVAN'; } BEGIN { $MouseX::Getopt::Meta::Attribute::NoGetopt::VERSION = '0.33'; } # ABSTRACT: Optional meta attribute for ignoring params use Mouse; extends 'Mouse::Meta::Attribute'; # << Mouse extending Mouse :) with 'MouseX::Getopt::Meta::Attribute::Trait::NoGetopt'; no Mouse; # register this as a metaclass alias ... package # stop confusing PAUSE Mouse::Meta::Attribute::Custom::NoGetopt; BEGIN { $Mouse::Meta::Attribute::Custom::NoGetopt::AUTHORITY = 'cpan:STEVAN'; } BEGIN { $Mouse::Meta::Attribute::Custom::NoGetopt::VERSION = '0.33'; } sub register_implementation { 'MouseX::Getopt::Meta::Attribute::NoGetopt' } 1; __END__