I did some further testing today. I first tried the CVS version of modperl of
last night, no difference. But when I tried it with perl5.005_62 it worked like
a charm. It still has me baffled though, I'm looking more closely at the
changes between perl 5.005_03 and perl5.005_62.
On Wed, 10 Nov 1999, Tim Tompkins wrote:
> This should work... I haven't tried it, though :o) >
> package ThingA;
>
> use strict;
> use ThingB;
>
> sub new { return bless {}, shift; }
>
> sub ThingB { return ThingB->new( @_ ); }
>
> ---------------
> package ThingB;
>
> use strict;
>
> # Note, the next 3 lines will only be necessary if you want to override
> # ThingA's methods in ThingB and/or make ThingA's methods
> # available to ThingB objects
> use ThingA;
> use vars qw(@ISA);
> @ISA = qw(ThingA);
>
> sub new {
> my($class,$thinga,$id) = @_;
> return bless {THINGA=>$thinga, ID=>$id}, $class;
> }
>
> --------------
> In the script...
> use ThingA;
> $thinga = new ThingA;
> $thingb = $thinga->ThingB;
>
>
>
> Thanks,
>
> Tim Tompkins
> ----------------------------------------------
> Programmer / IS Technician
> http://www.arttoday.com/
>
>
--
Ronald F. Lens
E-mail [EMAIL PROTECTED]
(o_
(o_ (o_ //\
(/)_ (/)_ V_/_
