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

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