use MooseX::Getopt::OptionTypeMap;
use MooseX::Getopt::Meta::Attribute;
-our $VERSION = '0.01';
+our $VERSION = '0.03';
our $AUTHORITY = 'cpan:STEVAN';
-has ARGV => (is => rw, isa => 'ArrayRef');
+has ARGV => (is => 'rw', isa => 'ArrayRef');
sub new_with_options {
my ($class, %params) = @_;
#warn Dumper \%options;
$class->new(
+ ARGV => $saved_argv,
%params,
map {
$name_to_init_arg{$_} => $options{$_}
} keys %options,
- ARGV => $saved_argv;
);
}
Stevan Little E<lt>stevan@iinteractive.comE<gt>
+Brandon L. Black, E<lt>blblack@gmail.comE<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright 2007 by Infinity Interactive, Inc.