use POSIX qw//;
use Data::Dumper qw/Dumper/;
sub ftime ($) { POSIX::strftime '%c', localtime shift }
use POSIX qw//;
use Data::Dumper qw/Dumper/;
sub ftime ($) { POSIX::strftime '%c', localtime shift }
my %page_cache;
for (<tmpl/*>) {
my ($tmpl, $lang) = m,tmpl/(\w+)\.(\w+),;
my %page_cache;
for (<tmpl/*>) {
my ($tmpl, $lang) = m,tmpl/(\w+)\.(\w+),;
$builder->ignore_unknown(0);
$page_cache{$tmpl, $lang} = $builder->parse_file($_);
}
$builder->ignore_unknown(0);
$page_cache{$tmpl, $lang} = $builder->parse_file($_);
}