Gerald, you hit the nail on the head this time. This is exactly what I
was talking about. I apologise if I sounded a bit frustrated last email
- I've really been thrown by this thing over the last few days. It's
make me question everything I was doing, and after 8 months that's quite
a lot of code ...
Anyhow, I want to thank you again for taking the time to address these
things. I tried your proposal, which I think should work, but doesn't
seem to for me. Here's what I have:
base.html:
<HTML>
[- Execute ({inputfile => 'subs.html', import => 0}) -]
[- Execute ({inputfile => 'subs.html#NEW', param => \@p}) -]
[-
$object = $p[0];
$object->xxx;
-]
</HTML>
subs.html:
[$ sub NEW $]
[-
my $object = {};
bless $object, __PACKAGE__;
$param[0] = $object;
-]
[$ endsub $]
[! sub xxx { print OUT "xxx"; } !]
When I try this, I get an error in base.html, as follows:
[494]ERR: 30: Line 3: Not found subs.html#NEW
[494]ERR: 24: Line 4: Error in Perl code: Can't call method "xxx" on an
undefined value
at /www/nilspace/com/test/base.html line 6.
Apache/1.3.12 Ben-SSL/1.41 (Unix) mod_perl/1.24 AuthMySQL/2.20
HTML::Embperl 1.3.0
Oh boy. Am I doing something stupid here? It looks ok to me...
This method looks at first sight to offer the functionality needed to
make my multi-package scenario workable. I am not sufficiently
experienced in Perl wizardry to be able to offer much more in the way of
elegant ideas at this point... I guess with real use the best way to do
this will become apparent.
Anyway, thanks again Gerald! I feel like we are making progress now...
-Neil
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
