[svn:dbi] r14095 - dbi/trunk

Author: REHSACK
Date: Fri Jun  4 04:04:12 2010
New Revision: 14095

Modified:
   dbi/trunk/DBI.pm

Log:
Add driver_prefix method to DBI to allow generic routines find out the
required driver prefix


Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm	(original)
+++ dbi/trunk/DBI.pm	Fri Jun  4 04:04:12 2010
@@ -342,7 +342,9 @@
   pg_      => { class => 'DBD::Pg',		},
   pgpp_    => { class => 'DBD::PgPP',		},
   plb_     => { class => 'DBD::Plibdata',	},
+  po_      => { class => 'DBD::PO',		},
   proxy_   => { class => 'DBD::Proxy',		},
+  ram_     => { class => 'DBD::RAM',		},
   rdb_     => { class => 'DBD::RDB',		},
   sapdb_   => { class => 'DBD::SAP_DB',		},
   solid_   => { class => 'DBD::Solid',		},
@@ -350,6 +352,7 @@
   sql_     => { class => 'SQL::Statement',	},
   sqlite_  => { class => 'DBD::SQLite',  	},
   syb_     => { class => 'DBD::Sybase',		},
+  sys_     => { class => 'DBD::Sys',		},
   tdat_    => { class => 'DBD::Teradata',	},
   tmpl_    => { class => 'DBD::Template',	},
   tmplss_  => { class => 'DBD::TemplateSS',	},
@@ -363,6 +366,10 @@
   yaswi_   => { class => 'DBD::Yaswi',		},
 };
 
+my %dbd_class_registry = map { $dbd_prefix_registry->{$_}->{class} => { prefix => $_ } }
+			     grep { exists $dbd_prefix_registry->{$_}->{class} }
+			     keys %{$dbd_prefix_registry};
+
 sub dump_dbd_registry {
     require Data::Dumper;
     local $Data::Dumper::Sortkeys=1;
@@ -968,6 +975,11 @@
 
 *internal = \&DBD::Switch::dr::driver;
 
+sub driver_prefix {
+    my ($class, $driver) = @_;
+    return $dbd_class_registry{$driver}->{prefix} if exists $dbd_class_registry{$driver};
+    return;
+}
 
 sub available_drivers {
     my($quiet) = @_;