view release on metacpan or  search on metacpan

bin/csv2latextable  view on Meta::CPAN

    'latex=s'        => \$opts{latex},
    'latex-param=s@' => \$opts{latex_param},
    'split=i'        => \$opts{split},
    'rotate'         => \$opts{rotate},
    'help'           => \my $help,
);

usage() if $help;

if ( !$opts{csv} || !$opts{latex} ) {
    say 'Need csv and latex parameters!';
    usage();
}

if ( !-f $opts{csv} ) {
    say "file $opts{csv} does not exist";
    usage();
}

for my $key ( qw/csv_param latex_param/ ) {
    delete $opts{$key} if !defined $opts{$key};
}

$opts{rotate} = 90 if $opts{rotate};

my $app = App::CSV2LaTeXTable->new( %opts ) // usage();