Make table dropping optional, not the default.

[DBIx-DBSchema.git] / DBSchema / _util.pm

diff --git a/DBSchema/_util.pm b/DBSchema/_util.pm
index 51a3159..5bb583f 100644 (file)
--- 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;