1 package html::homepage;
2
3 use base qw( HTML::Seamstress ) ;
4
5 sub new {
6  my ($class, $c) = @_;
7
8  my $html_file = 'html/base.html';
9
10  my $tree = __PACKAGE__->new_from_file($html_file);
11
12  $tree;
13 }
14
15 sub process {
16  my ($tree, $c, $stash) = @_;
17
18  $tree->content_handler(head => 'Wally World Home');
19  $tree->content_handler(body =>
20   "Here at Wally World you'll find all the finest accoutrements.");
21 }
22
231;
24