File Coverage

blib/lib/MouseX/Getopt/Strict.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package MouseX::Getopt::Strict;
2             # ABSTRACT: only make options for attrs with the Getopt metaclass
3              
4 1     1   613 use Mouse::Role;
  1         3  
  1         7  
5              
6             with 'MouseX::Getopt';
7              
8             around '_compute_getopt_attrs' => sub {
9             my $next = shift;
10             my ( $class, @args ) = @_;
11             grep {
12             $_->does("MouseX::Getopt::Meta::Attribute::Trait")
13             } $class->$next(@args);
14             };
15              
16 1     1   478 no Mouse::Role;
  1         2  
  1         4  
17              
18             1;
19              
20             =head1 DESCRIPTION
21              
22             This is an stricter version of C which only processes the
23             attributes if they explicitly set as C attributes. All other attributes
24             are ignored by the command line handler.
25              
26             =cut