lib/MooseX/Getopt/Meta/Attribute/NoGetopt.pm

   1
   2 package MooseX::Getopt::Meta::Attribute::NoGetopt;
   3 use Moose;
   4
   5 our $VERSION   = '0.25';
   6 our $AUTHORITY = 'cpan:STEVAN';
   7
   8 extends 'Moose::Meta::Attribute'; # << Moose extending Moose :)
   9    with 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt';
  10
  11 no Moose;
  12
  13 # register this as a metaclass alias ...
  14 package # stop confusing PAUSE
  15     Moose::Meta::Attribute::Custom::NoGetopt;
  16 sub register_implementation { 'MooseX::Getopt::Meta::Attribute::NoGetopt' }
  17
  18 1;
  19
  20 __END__
  21
  22 =pod
  23
  24 =head1 NAME
  25
  26 MooseX::Getopt::Meta::Attribute::NoGetopt - Optional meta attribute for ignoring params
  27
  28 =head1 SYNOPSIS
  29
  30   package App;
  31   use Moose;
  32
  33   with 'MooseX::Getopt';
  34
  35   has 'data' => (
  36       metaclass => 'NoGetopt',  # do not attempt to capture this param
  37       is        => 'ro',
  38       isa       => 'Str',
  39       default   => 'file.dat',
  40   );
  41
  42 =head1 DESCRIPTION
  43
  44 This is a custom attribute metaclass which can be used to specify
  45 that a specific attribute should B<not> be processed by
  46 C<MooseX::Getopt>. All you need to do is specify the C<NoGetopt>
  47 metaclass.
  48
  49   has 'foo' => (metaclass => 'NoGetopt', ... );
  50
  51 =head1 METHODS
  52
  53 =over 4
  54
  55 =item B<meta>
  56
  57 =back
  58
  59 =head1 BUGS
  60
  61 All complex software has bugs lurking in it, and this module is no
  62 exception. If you find a bug please either email me, or add the bug
  63 to cpan-RT.
  64
  65 =head1 AUTHOR
  66
  67 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  68
  69 Chris Prather  C<< <perigrin@cpan.org> >>
  70
  71 =head1 COPYRIGHT AND LICENSE
  72
  73 Copyright 2007-2008 by Infinity Interactive, Inc.
  74
  75 L<http://www.iinteractive.com>
  76
  77 This library is free software; you can redistribute it and/or modify
  78 it under the same terms as Perl itself.
  79
  80 =cut