File: frobulate.pm

package info (click to toggle)
libapp-cmd-perl 0.338-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 516 kB
  • sloc: perl: 1,727; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 392 bytes parent folder | download | duplicates (3) 
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
 
package Test::MyCmd::Command::frobulate;

use strict;
use warnings;

use parent qw(App::Cmd::Command);

sub command_names {
  return qw(frobulate frob);
}

sub opt_spec {
  return (
    [ "foo-bar|F", "enable foo-bar subsystem" ],
    [ "widget=s",  "set widget name"          ],
  );
}

sub execute {
  my ($self, $opt, $arg) =@_;

  die "the widget name is $opt->{widget} - @$arg\n";
}

1;