|
248
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage('-verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'i|input=s@', sub {
$self->parse_io_option('inputs', @_);
}
, 'log!', \$self->{'_logprog'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'saveoutput=s', \$self->{'_save_output'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'n|numeric', sub {
$self->parse_sort_option(@_);
}
, 'N|lexical', sub {
$self->parse_sort_option(@_);
}
, 'r|descending', sub {
$self->parse_sort_option(@_);
}
, 'R|ascending', sub {
$self->parse_sort_option(@_);
}
, '<>', sub {
$self->parse_sort_option('<>', @_);
}
) |