projects
/
gitmo/MooseX-Getopt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
* Look only one class at default.
[gitmo/MooseX-Getopt.git]
/
lib
/
MooseX
/
Getopt.pm
diff --git
a/lib/MooseX/Getopt.pm
b/lib/MooseX/Getopt.pm
index
a915d5a
..
1e7c91a
100644
(file)
--- a/
lib/MooseX/Getopt.pm
+++ b/
lib/MooseX/Getopt.pm
@@
-48,7
+48,9
@@
sub new_with_options {
my $getopt = defined $params{getopt}
? $params{getopt}
- : $class->_default_getopt_session->new;
+ : $class->_default_getopt_session->new(
+ classes_filter => sub { $_ eq $class }
+ );
my %options = $getopt->options;