SchemaView-Plus
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/DBIx/SystemCatalog.pm view on Meta::CPAN
and you can't disconnect that instance while you use this instance of
DBIx::SystemCatalog.
$catalog = new DBIx::SystemCatalog $dbh
=cut
sub new {
my $class = shift;
my $dbi = shift;
my $obj = bless { dbi => $dbi, class => $class, schema => '' },$class;
$obj->{Driver} = $obj->{dbi}->{Driver}->{Name};
# Only base class can dispatch to more specific class
if ($class eq 'DBIx::SystemCatalog') {
my $driver_name = 'DBIx::SystemCatalog::'.$obj->{Driver};
eval "package DBIx::SystemCatalog::_safe; require $driver_name";
unless ($@) { # found specific driver
$driver_name->import();
return $driver_name->new($dbi,@_);
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.868 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )