|
205
|
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'}, 'e|empty=s', \$self->{'_empty'}, 'f|first!', \$self->{'_first'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'recreate-fatal!', \$self->{'_recreate_fatal'}, 'log!', \$self->{'_logprog'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, '<>', sub {
my($target) = @_;
if ($target eq '-') {
warn qq[dbcolcreate: appear to be using fsdb-1 dual argument syntax. Replace "NewCol DefaultValue" with "-e DefaultValue NewCol".\n];
return;
} ;
push @{$$self{'_creations'};}, $target;
$self->{'_create_values'}{$target} = $self->{'_empty'};
}
) |