|
234
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage('-verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'C|element-separator=s', \$self->{'_elem_separator'}, 'd|debug+', \$self->{'_debug'}, 'E|enumerate!', \$self->{'_enumerate'}, 'header=s', \$self->{'_header'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'log!', \$self->{'_logprog'}, 'N|new-name=s', \$self->{'_destination_column_list'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
) |