#!/usr/bin/perl package TemplateTreeBuilder; use lib "/testproject/modules"; use MyElement; use HTML::TreeBuilder; #inherit from TreeBuilder @ISA = qw(HTML::TreeBuilder); #use parent qw/HTML::TreeBuilder/; #constructor sub new { my $class = shift; $class = ref($class) || $class; #invoke base constructor my $self = $class->SUPER::new(@_); $self->{_element_class}='MyElement'; bless($self, $class); return $self; } return 1;