view release on metacpan or  search on metacpan

lib/App/CSV2Chart/Command/svg.pm  view on Meta::CPAN

    my $output_fn = delete $opt->{output};
    my $exe       = delete( $opt->{exec} ) // [];

    my $fh = \*STDIN;

    my $dir = tempdir();

    if ( "$dir" =~ /%/ )
    {
        die "Invalid dir path $dir contains percent signs";
    }

    my $xlsx = $dir->child("temp.xlsx");

    App::CSV2Chart::API::ToXLSX::csv_to_xlsx(
        {
            input_fh  => $fh,
            output_fn => "$xlsx",
            %$opt,
        }