equal
deleted
inserted
replaced
53 ); |
53 ); |
54 |
54 |
55 MAIN: { |
55 MAIN: { |
56 Getopt::Long::Configure('no_ignore_case_always'); |
56 Getopt::Long::Configure('no_ignore_case_always'); |
57 GetOptions( |
57 GetOptions( |
58 "u|uerl=s" => \$opt{url}, |
58 "u|url=s" => \$opt{url}, |
59 "s|search=s" => \$opt{search}, |
59 "s|search=s" => \$opt{search}, |
60 "p|package=s" => \$opt{package}, |
60 "p|package=s" => \$opt{package}, |
61 "h|help" => sub { pod2usage( -verbose => 1, -exitval => $ERRORS{OK} ) }, |
61 "h|help" => sub { pod2usage( -verbose => 1, -exitval => $ERRORS{OK} ) }, |
62 "m|man" => sub { pod2usage( -verbose => 2, -exitval => $ERRORS{OK} ) }, |
62 "m|man" => sub { pod2usage( -verbose => 2, -exitval => $ERRORS{OK} ) }, |
63 "V|version" => sub { version( $ME, $VERSION ); exit $ERRORS{OK}; } |
63 "V|version" => sub { version( $ME, $VERSION ); exit $ERRORS{OK}; } |