## In your class package My::App; use Mouse; with 'MouseX::Getopt::Basic'; has 'out' => (is => 'rw', isa => 'Str', required => 1); has 'in' => (is => 'rw', isa => 'Str', required => 1); # ... rest of the class here ## in your script #!/usr/bin/perl use My::App; my $app = My::App−>new_with_options(); # ... rest of the script here ## on the command line % perl my_app_script.pl −−in file.input −−out file.dump
This is like MouseX::Getopt and can be used instead except that it doesn’t make use of Getopt::Long::Descriptive (or " GLD" for short).
new_with_options
See "new_with_options" in MouseX::Getopt.