bin/spreadsheet_to_template


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/env perl
use strict;
use warnings;
# PODNAME: spreadsheet_to_template
# ABSTRACT: create a basic template file from a spreadsheet

use Spreadsheet::Template::Generator;

my $generator = Spreadsheet::Template::Generator->new;
open my $fh, '>:encoding(utf8)', 'out.json';
$fh->print($generator->generate($ARGV[0]));