Thank you all for your advice and for your help. I figured out how to get this done! Here is my final working code. I am loading my @ISA in the beginning with each of my packages and I am requiring the package in a method using an eval statement. It looks a little wierd but it works. I'll get a better benchmark of the speed when I get a good prototype working. Here is my calling script and the relevant methods.
use Data::Dumper;
use CBIDatabase;
my $dbh = CBIDatabase->new();
$dbh->load_package('Company');
my %company;
$company{'id'} = '03459875437';
my $ref = $dbh->Company::client(\%company,'*',);
print "\n\nAsking for all matching table info:\n";
print Dumper($ref);
Here is the load_package method of the CBIDatabase class
use strict;
use DBI;
my @ISA = qw(Company);
sub load_package {
my $self = shift;
my $package = shift;
require eval{$package.'.pm'};
}
sub new {
## database stuff here
}
I'm excited! This seems to work very well. I don't like to use eval statements but I think I'll have to if I want to require the modules dynamically. Again thanks for all of the help. This is a very old database that didn't follow any of the rules, that class::dbi seemed to need.
|