X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=DBSchema%2F_util.pm;h=5bb583fcce694ecb7eccbe0625770bef67f602f9;hb=f0bdd7cafeeb8515c035bc40acd2cd7d37b020ed;hp=51a3159ebf98df9bf4f7cf9f8f2e1e887e525b52;hpb=b604a6e28009f97d206156bf3fa1eeeb6b5063f9;p=DBIx-DBSchema.git

diff --git a/DBSchema/_util.pm b/DBSchema/_util.pm
index 51a3159..5bb583f 100644
--- a/DBSchema/_util.pm
+++ b/DBSchema/_util.pm
@@ -9,7 +9,7 @@ use Carp qw(confess);
 use DBI;
 
 @ISA = qw(Exporter);
-@EXPORT_OK = qw( _load_driver _dbh );
+@EXPORT_OK = qw( _load_driver _dbh _parse_opt );
 
 sub _load_driver {
   my($dbh) = @_;
@@ -39,5 +39,14 @@ sub _dbh {
   ( $dbh, $created_dbh );
 }
 
+sub _parse_opt {
+  my $optref = shift;
+  if ( ref( $optref->[0] ) eq 'HASH' ) {
+    shift @$optref;
+  } else {
+    {};
+  }
+}
+
 1;