BIGFOOT / CLI-Simple-0.0.8 / MyScript.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
—
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

              
package MyScript;
use strict;
use warnings;
use lib 'src/main/perl/lib';
use Data::Dumper;
use CLI::Simple::Constants qw(:booleans);
use parent qw(CLI::Simple);
__PACKAGE__->use_log4perl( level => 'info' );
caller or __PACKAGE__->main();
########################################################################
sub foo {
########################################################################
  my ($self) = @_;
  my %args = $self->get_args(qw(arg1 arg2));
  $self->get_logger->debug(
    Dumper(
      [ args      => \%args,
        log_level => $self->get_log_level,
        foo       => $self->get_foo,
        bar       => $self->get_bar
      ]
    )
  );
  return $SUCCESS;
}
########################################################################
sub bar {
########################################################################
  my ($self) = @_;
  my %args = $self->get_args(qw(arg1 arg2));
  $self->get_logger->debug(
    Dumper(
      [ args      => \%args,
        log_level => $self->get_log_level,
        foo       => $self->get_foo,
        bar       => $self->get_bar
      ]
    )
  );
  return $SUCCESS;
}
########################################################################
sub main {
########################################################################
  return __PACKAGE__->new(
    option_specs => [
      qw(
        foo=s
        bar
        help|h
      )
    ],
    commands => {
      bar => \&bar,
      foo => \&foo,
    },
  )->run;
}
1;
## no critic (RequirePodSections)
__END__
=pod
=head1 USAGE
  myscript.pm [options] command args
  
 Options           Description
 -------           -----------
 --help, -h        usage
 --log-level, -l   logging level (trace, ebug, info, warn, error), default: info
 --foo, -f         foo name
 --bar, -b         turn bar on/off (use --no-bar for off), default: on
  
 Commands       Arguments
 --------       ---------
 help
 foo            arg1, arg2
 bar            arg1, arg2
  
 Recipes
 -------
 1. Execute the foo command 
  
    perl myscript.pm -l debug foo biz buz
  
 2. Execute the bar commaand
  
    perl myscript.pm bar
  
=cut