Subroutine Inheritance

[Derrick Spell]

I want to set up a method accessed from the request object that will allow me the option to create a page title based on the path to the page.  What I was thinking was: /base.epl [! sub title { print OUT "Company"; } !] [- $req = shift -] <title>[- $req->title() -]</title> /title.epl [! sub title { print OUT " "; } !] /foo/title.epl  [! sub title {          my ($self) = @_;         $self->SUPER::title();         print OUT " : Products"; } !] /foo/index.html [! sub title {          my ($self) = @_;         $self->SUPER::title();         print OUT " : Widget"; } !] Then, visiting /foo/index.html would give you a page with the title "Company : Products : Widget".  As I went deeper in the directory tree, I could have more title.epl files, and thus a longer title.  For instance, if I add: /foo/bar/title.epl [! sub title {          my ($self) = @_;         $self->SUPER::title();         print OUT " : Downloads"; } !] /foo/bar/index.html [! sub title {          my ($self) = @_;         $self->SUPER::title();         print OUT " : Widget"; } ! Then the page /foo/bar/index.html would have the title "Company : Products : Downloads : Widget".  I can get the inheritance between the /base.epl and whatever index.html page I have working fine.  That's no problem.  The problem is getting the title.epl involved.  I want to use normal Embperl::Object file inheritance for title.epl files, but want it to be inbetween the base.epl and index.html in the heirarchy.  Is there a clever way to play with @ISA to accomplish this?  Or perhaps someone has a better idea for building titles? -Derrick