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