Return-Path: 
 <embperl-return-7434-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@www.apache.org
Received: (qmail 80231 invoked from network); 27 May 2005 10:52:08 -0000
Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199)
  by minotaur.apache.org with SMTP; 27 May 2005 10:52:08 -0000
Received: (qmail 6775 invoked by uid 500); 27 May 2005 10:52:01 -0000
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 6729 invoked by uid 500); 27 May 2005 10:52:00 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
List-Post: <mailto:embperl@perl.apache.org>
List-Id: <embperl.perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 6150 invoked by uid 99); 27 May 2005 10:51:58 -0000
X-ASF-Spam-Status: No, hits=0.3 required=10.0
	tests=DATE_IN_PAST_06_12,FORGED_RCVD_HELO
X-Spam-Check-By: apache.org
Received-SPF: neutral (hermes.apache.org: local policy)
Received: from 242.70.233.220.exetel.com.au (HELO dolly.pasture.com.au)
 (220.233.70.242)
  by apache.org (qpsmtpd/0.28) with ESMTP; Fri, 27 May 2005 03:51:57 -0700
Received: from amavis by dolly.pasture.com.au with no-scan (Exim 4.50)
	id 1DbcR0-0002pd-Tz
	for embperl@perl.apache.org; Fri, 27 May 2005 20:51:22 +1000
Received: from [fec0::20f:1fff:feb0:1c9d]
 (helo=localhost.localdomain.inodes.org)
	by dolly.pasture.com.au with esmtp (Exim 4.50)
	id 1DbcQj-0002pQ-Vf; Fri, 27 May 2005 20:51:06 +1000
Date: Fri, 27 May 2005 08:53:27 +1000
Message-ID: <877jhloazc.wl%gus@inodes.org>
From: Angus Lees <gus@inodes.org>
To: Derrick Spell <derrickspell@cdmplus.com>
Cc: embperl@perl.apache.org
Subject: Re: Subroutine Inheritance
In-Reply-To: <A5AAD5AD-CB0E-4BA4-B9F4-BA87A2E06B71@cdmplus.com>
References: <20050525040407.49EB911997A@lnx1.i.ecos.de>
	<A5AAD5AD-CB0E-4BA4-B9F4-BA87A2E06B71@cdmplus.com>
Mail-Followup-To: Derrick Spell <derrickspell@cdmplus.com>,
	embperl@perl.apache.org
User-Agent: Wanderlust/2.12.2 (99 Luftballons) XEmacs/21.4 (Jumbo Shrimp)
Tomato: Mauve
Mail-Copies-To: never
MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=US-ASCII
X-Virus-Checked: Checked
X-Spam-Rating: minotaur.apache.org 1.6.2 0/1000/N

At Wed, 25 May 2005 10:16:55 -0400, Derrick Spell wrote:
> > In your page you say
> > [! Execute ({isa => 'title.epl'}) !]
> > In your title.epl you say
> > [! Execute ({isa => '../title.epl'}) !]
> > <title>[+ $req->title() +]</title>

Since you are setting the title per directory rather than per file
anyway (via "title.epl"), an alternative would be to simply use
Embperl::Object's inheritance directly, ie:

/title.epl:
 Level 0 title

/base.epl:
 ...
 <title>[- Execute('title.epl') -]</title>
 ...

/sub/dir/title.epl:
 [- Execute('../title.epl') -]: A sub title

-- 
 - Gus


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org