problem using Class::Factory

shoez has asked for the wisdom of the Perl Monks concerning the following question:

Hello all, I've got a bit of a strange error that keeps popping up, involving the subclassing of various packages. I was reading this response by the venerable Ovid pretty recently, in which he explains the an OO concept called a factory. Anyway, great idea :) So I went off to CPAN to see if there was already a module built, and low and behold Class::Factory pops up. I've been struggling to get it working however. I'm wondering if anyone could spare a few minutes to point out my problem.
In one package, the central one, I have this code..

package pkg1;

use strict;
use factory;
etc, etc...
[download]

In the package called factory, I have the following.

package factory;
use strict;
use base qw(Class::Factory);
__PACKAGE__->add_factory_type(hello=>'speak::hello');
1;
[download]

Now that all seems fine to me. The package speak::hello should be preloaded using require, by Class::Factory, and I should be able to call it at a later time. Herein lies my issue. I hacked together a little test script, which contained just these lines.

#!d:/perl
use lib 'c:/perlcode';
use pkg1;
[download]

Sadly it didn't work, as Perl seemingly wanted to give me the error you see below. I must be doing something hideously wrong, but I can't seem to work out what/why. Please help, I'm tearing my hair out :) Oh, and I don't know if it's worth mentioning, but I'm using the latest ActiveState Perl distribution (5.8).

Can't locate object method "add_factory_type" via package "factory" at d:/site/factory.pm line 4.

with respect -shoez

2003-04-20 edit ybiC: retitle from "strange error when subclassing packages"

Comment on problem using Class::Factory Select or Download Code

Replies are listed 'Best First'.

Re: strange error when subclassing packages
by adrianh (Chancellor) on Apr 20, 2003 at 21:56 UTC

Just checking the most obvious cause - are you sure that you have the Class::Factory module installed? Since base doesn't die if the module cannot be located, does changing

use base qw(Class::Factory);
[download]

use Class::Factory;
our @ISA = qw(Class::Factory);
[download]

give you an error?

[reply]
[d/l]
[select]

Re: Re: strange error when subclassing packages

by shoez (Sexton) on Apr 20, 2003 at 22:25 UTC

shoez

[reply]

Re: Re: Re: strange error when subclassing packages

by pfaut (Priest) on Apr 21, 2003 at 00:40 UTC

use base qw(xxx); is equivalent to require xxx; our @ISA=qw(xxx);. Since base requires the module and doesn't use it, the base module's import method is never called. Therefore, no symbols are imported from the base class to the deriving class's namespace.

If I recall correctly, perl only follows derivation chains to locate a sub to satisfy object methods. If you were using __PACKAGE__->whatever(), perl would not look for whatever() in base classes since that syntax specifies a class method, not an object method. Perl would only look for it in the current package. Since the base module was required and not used, no import was performed and the symbol doesn't exist in the current module.

When you remove the use base and replace it with use followed by setting @ISA yourself, the fact that you've used the module gets the routine into your packages namespace and everything works.

90% of every Perl application is already written. ⇒

dragonchild

[reply]
[d/l]
[select]

Re^4: strange error when subclassing packages

by adrianh (Chancellor) on Apr 21, 2003 at 09:33 UTC

Re^4: strange error when subclassing packages (not use vs require)

by Aristotle (Chancellor) on Apr 21, 2003 at 02:50 UTC

Re: Re^4: strange error when subclassing packages (not use vs require)

by pfaut (Priest) on Apr 21, 2003 at 12:50 UTC

Re^3: strange error when subclassing packages

by adrianh (Chancellor) on Apr 21, 2003 at 00:14 UTC

Both should work or neither should - if one works and one fails something odd is happening.

[reply]

•Re: strange error when subclassing packages
by merlyn (Sage) on Apr 20, 2003 at 20:32 UTC

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

[reply]

Re: •Re: strange error when subclassing packages

by shoez (Sexton) on Apr 20, 2003 at 20:57 UTC

shoez

[reply]

Re: strange error when subclassing packages
by shoez (Sexton) on Apr 20, 2003 at 20:26 UTC

d:/site

c:/perlcode

shoez

[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks