]> mj.ucw.cz Git - temple.git/blob - temple
"use lib '.'" for compatibility with recent Perls
[temple.git] / temple
1 #!/usr/bin/perl
2 # A really simple template engine
3 # (c) 2004 Martin Mares <mj@ucw.cz>
4
5 use strict;
6 use warnings;
7 use lib '.';
8
9 use Getopt::Long;
10 use UCW::Temple;
11
12 my $out;
13
14 GetOptions('out|o=s' => \$out) or die "Usage: temple [-o <out>] <in> ...";
15 if (defined $out) {
16         close STDOUT;
17         open STDOUT, ">$out" or die "Cannot open $out: $!";
18 }
19 if (!@ARGV) { push @ARGV, "-"; }
20 UCW::Temple::start();
21 foreach (@ARGV) {
22         UCW::Temple::parse_file($_);
23 }
24 UCW::Temple::finish();