1MouseX::Getopt::GLD(3pmU)ser Contributed Perl DocumentatiMoonuseX::Getopt::GLD(3pm)
2
3
4
6 ## In your class
7 package My::App;
8 use Mouse;
9
10 with 'MouseX::Getopt::GLD';
11
12 has 'out' => (is => 'rw', isa => 'Str', required => 1);
13 has 'in' => (is => 'rw', isa => 'Str', required => 1);
14
15 # ... rest of the class here
16
17 ## in your script
18 #!/usr/bin/perl
19
20 use My::App;
21
22 my $app = My::App->new_with_options();
23 # ... rest of the script here
24
25 ## on the command line
26 % perl my_app_script.pl -in file.input -out file.dump
27
28
29
30perl v5.32.1 2021-03-15 MouseX::Getopt::GLD(3pm)