|
247
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage('-verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'd|debug+', \$self->{'_debug'}, 'e|empty=s', \$self->{'_empty'}, 'i|input=s@', sub {
$self->parse_io_option('inputs', @_);
}
, 'inputs', sub {
}
, 'log!', \$self->{'_logprog'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'u|unescape!', \$self->{'_unescape'}, 'T|tmpdir|tempdir=s', \$self->{'_tmpdir'}, 'U', sub {
$self->{'_unescape'} = undef;
}
, '<>', sub {
$self->parse_io_option('inputs', @_);
}
) |