#use Smart::Comments;
# Pluggined MooseX::Getopt::Parser parser
-has 'getopt_parser' => (
+has 'parser' => (
is => 'rw',
does => 'MooseX::Getopt::Parser',
default => sub {
);
# Die if warnings was occured
-has 'die_on_warning' => (
- is => 'rw',
- isa => 'Bool',
- default => 1,
-);
-
-
sub BUILD {
### MooseX::Getopt::Session::BUILD : @_
my ($self, $args) = @_;
my @attrs = map { $_->_compute_getopt_attrs } $self->_compute_getopt_classes;
### MooseX::Getopt::Session::build_options @attrs -> name : map { $_->name } @attrs
- return $self->getopt_parser->build_options( $self, @attrs );
+ return $self->parser->build_options( $self, @attrs );
}