lib/MooseX/Getopt/Meta/NoGetopt.pm

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