mycode_payment.pm

#!/usr/bin/perl --
use warnings;

package mycode_payment;

require Exporter;
@ISA = qw (Exporter);
@EXPORT = qw(@EXPORT_OK);

@EXPORT_OK = qw($dbh %form %session);

use common qw(%form $dbh %session);

use mycode;
use mycode_config qw(%config);
use mycode_pegs qw(%mycode_pegs);
use mycode_create_orders;
use mycode_forms;
use mycode_includes;

use site_config qw(%site_config);

use Digest::MD5  qw(md5_hex);
use Business::CreditCard;

use strict;
use vars qw($dbh %form %session %site_config %config %mycode_pegs);

use mycode_payment_maxmind;
[download]

Lots of subroutines follow, making up the rest of this module.

mycode_payment_maxmind.pm

#!/usr/bin/perl --
use warnings;

package mycode_payment;

require Exporter;
@ISA = qw (Exporter);
@EXPORT = qw(@EXPORT_OK);

@EXPORT_OK = qw($dbh %form %session);

use common qw(%form $dbh %session);

use mycode;
use mycode_config qw(%config);
use mycode_pegs qw(%mycode_pegs);
use mycode_create_orders;
use mycode_forms;
use mycode_includes;

use site_config qw(%site_config);

use Digest::MD5  qw(md5_hex);
use Business::MaxMind::CreditCardFraudDetection;
use Business::MaxMind::TelephoneIdentitification;
use Business::MaxMind::TelephoneVerification;

use strict;
use vars qw($dbh %form %session %site_config %config);
[download]

Lots of subroutines follow, making up the rest of this module.

mycode_pegs.pm

#!/usr/bin/perl --
use warnings;

package mycode_pegs;

require Exporter;
@ISA = qw (Exporter);
@EXPORT = qw(@EXPORT_OK);

@EXPORT_OK = qw(%mycode_pegs);

use strict;

use common qw(%form $dbh %session);
use common_config qw(%common_config);

use site_config qw(%site_config);

use mycode_config qw(%config);
use mycode;
use mycode_create_orders;

use vars qw(%mycode_pegs);
[download]

Lots of keys and values of %mycode_pegs are now defined, making up the rest of this module. It is these values that are not accessible in mycode_payment_maxmind.pm any more for some reason.

These problems are happenning under Apache 1.x running mod_perl. The mod_perl startup script uses a lot of these modules too:

use mycode_config qw(%config);
use mycode_pegs qw(%mycode_pegs);
use mycode_includes();
use email_sellcart();
use mycode();
use mycode_admin();
use mycode_buylist();
use mycode_ccgateways();
use mycode_create_orders();
use mycode_forms();
use mycode_from();
use mycode_lang_ccverify();
use mycode_makemoney();
use mycode_newsletter();
use mycode_pages();
use mycode_payment();
use mycode_productentry();
use mycode_redflag();
use mycode_store();
use mycode_wish();
use mycode_actions_payment();
use mycode_payment_maxmind();
[download]