Grant's XML slide generator - module

#  -*- perl -*-

package mkpres;

use strict;

use XML::LibXML;
use Data::Dumper;

my %template = (
  index => Template::MasonLite->new_from_file('./_index.html'),
  toc   => Template::MasonLite->new_from_file('./_toc.html'),
  slide => Template::MasonLite->new_from_file('./_slide.html'),
  notes => Template::MasonLite->new_from_file('./_notes.txt'),
);

sub new {
    bless {}, shift;
}

sub get_xmldoc {
    shift;
    my $file = shift;

    my $parser = XML::LibXML->new;
    my $doc    = $parser->parse_file($file);
    my $root   = $doc->getDocumentElement;

    return $root;
}


sub gen_title_page {
    shift;
  ...