#!/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;