[svn:dbi] r14095 - dbi/trunk

[REHSACK]

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) = @_;