File Coverage

blib/lib/MooseX/Getopt/Meta/Attribute/Trait/NoGetopt.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package MooseX::Getopt::Meta::Attribute::Trait::NoGetopt;
2             # ABSTRACT: Optional meta attribute trait for ignoring parameters
3              
4             our $VERSION = '0.75';
5              
6 27     27   18706 use Moose::Role;
  27         72  
  27         234  
7 27     27   142955 use namespace::autoclean;
  27         72  
  27         212  
8              
9             # register this as a metaclass alias ...
10             package # stop confusing PAUSE
11             Moose::Meta::Attribute::Custom::Trait::NoGetopt;
12 25     25   56203 sub register_implementation { 'MooseX::Getopt::Meta::Attribute::Trait::NoGetopt' }
13              
14             1;
15              
16             __END__
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             MooseX::Getopt::Meta::Attribute::Trait::NoGetopt - Optional meta attribute trait for ignoring parameters
25              
26             =head1 VERSION
27              
28             version 0.75
29              
30             =head1 SYNOPSIS
31              
32             package App;
33             use Moose;
34              
35             with 'MooseX::Getopt';
36              
37             has 'data' => (
38             traits => [ 'NoGetopt' ], # do not attempt to capture this param
39             is => 'ro',
40             isa => 'Str',
41             default => 'file.dat',
42             );
43              
44             =head1 DESCRIPTION
45              
46             This is a custom attribute metaclass trait which can be used to
47             specify that a specific attribute should B<not> be processed by
48             C<MooseX::Getopt>. All you need to do is specify the C<NoGetopt>
49             metaclass trait.
50              
51             has 'foo' => (traits => [ 'NoGetopt', ... ], ... );
52              
53             =head1 SUPPORT
54              
55             Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Getopt>
56             (or L<bug-MooseX-Getopt@rt.cpan.org|mailto:bug-MooseX-Getopt@rt.cpan.org>).
57              
58             There is also a mailing list available for users of this distribution, at
59             L<http://lists.perl.org/list/moose.html>.
60              
61             There is also an irc channel available for users of this distribution, at
62             L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
63              
64             =head1 AUTHOR
65              
66             Stevan Little <stevan@iinteractive.com>
67              
68             =head1 COPYRIGHT AND LICENSE
69              
70             This software is copyright (c) 2007 by Infinity Interactive, Inc.
71              
72             This is free software; you can redistribute it and/or modify it under
73             the same terms as the Perl 5 programming language system itself.
74              
75             =cut