#!/usr/bin/perl -w

use strict;
use lib '.';

use FAQ;
use Template;

my $faq = FAQ->new({ file => 'faq.xml', htmlify => 0 });
die "Couldn't create FAQ obj" unless $faq;
$faq->read_file() or die "Can't read faq.xml";

#use Data::Dumper;
#print Dumper($faq), "\n";

my $t = Template->new({
        INCLUDE_PATH => './templates',
        POST_CHOMP => 1,
        TAG_STYLE => 'star',
    });
my $output = '';
$t->process('faq.html', { items => $faq->items() }, \$output)
    or die $t->error();
print $output, "\n";