Perl is so slick:
if ( $self->{code} ) {
$string = $self->{code};
} else {
$self->{class}{file}{generator}{tt2}->process(
$self->{class}{file}{generator}{fmgr}{templates}{CollectionProperty},
$self,
\$string
) || die $self->{class}{file}{generator}{tt2}->error(), "\n";
}
Objects created by other objects in the same class heirarchy get a property
set to a reference to the object that created it. This piece of code is from
a code generator that uses Template::Toolkit. $string is returned, being
called for in the first place by another method call placed in a
Template::Toolkit template.
Vive OO.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
