Hi to everyone!
I'm trying to find out if I'm passing objects properly under mod_perl
because something is not working as I expect.
index.pl
########
use MyConfig;
my $vars = { config => &cfg };
MyConfig.pm
###########
package MyConfig;
use strict;
use Exporter;
use vars qw(@ISA @EXPORT %CFG );
use ClientConf;
@ISA = qw(Exporter);
@EXPORT = qw(%CFG &cfg);
%CFG = { global vars... };
sub cfg {
my $CFG{$clientID} = new ClientConf;
return $CFG{$clientID};
}
1;
Under normal PERL $vars->{config} is a MyConfig object. Under mod_perl
nothing is returned. Debugging with "print" statements in &cfg shows me
that "ref $CFG{$clientID}" is ClientConf, the object is there, but upon
return it just disappears.
I have other functions which "return new MyUser()" and these work
perfectly, so I'm thinking that the problem lies with the global
variable "$CFG" and that something which I think should be happening is
NOT happening.
I'm flummoxed...
Thank-you for any insights!
Tosh
--
McIntosh Cooey - Twelve Hundred Group LLC - http://www.1200group.com/
