1 # internal utility subroutines used by multiple classes
3 package DBIx::DBSchema::_util;
6 use vars qw(@ISA @EXPORT_OK);
11 @EXPORT_OK = qw( _load_driver );
17 $driver = $dbh->{Driver}->{Name};
19 $dbh =~ s/^dbi:(\w*?)(?:\((.*?)\))?://i #nicked from DBI->connect
20 or '' =~ /()/; # ensure $1 etc are empty if match fails
21 $driver = $1 or confess "can't parse data source: $dbh";
24 #require "DBIx/DBSchema/DBD/$driver.pm";
26 eval 'require "DBIx/DBSchema/DBD/$driver.pm"' and $driver or die $@;