bin/generate_template


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl
use strict;
use warnings;
# PODNAME: generate_template

use Spreadsheet::Template::Generator;

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