X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage.pm;h=86b3a89da829f0e2260a75b6cf9e37236d6c029a;hb=46a05fd450f4848c6dc5f1302001571a79f4728e;hp=6a519794a40c368ff9623dcd7e27a70c2450c5cf;hpb=a62cf8d4bbd7df7082e0fab3d52a45afeeb64293;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm
index 6a51979..86b3a89 100644
--- a/lib/DBIx/Class/Storage.pm
+++ b/lib/DBIx/Class/Storage.pm
@@ -1,15 +1,21 @@
-package DBIx::Class::Storage;
+package # hide from PAUSE
+    DBIx::Class::Storage;
 
 use strict;
 use warnings;
 
 sub new { die "Virtual method!" }
+sub set_schema { die "Virtual method!" }
 sub debug { die "Virtual method!" }
 sub debugcb { die "Virtual method!" }
 sub debugfh { die "Virtual method!" }
+sub debugobj { die "Virtual method!" }
+sub cursor { die "Virtual method!" }
 sub disconnect { die "Virtual method!" }
 sub connected { die "Virtual method!" }
 sub ensure_connected { die "Virtual method!" }
+sub on_connect_do { die "Virtual method!" }
+sub connect_info { die "Virtual method!" }
 sub sql_maker { die "Virtual method!" }
 sub txn_begin { die "Virtual method!" }
 sub txn_commit { die "Virtual method!" }
@@ -22,8 +28,6 @@ sub select_single { die "Virtual method!" }
 sub columns_info_for { die "Virtual method!" }
 
 
-
-
 package DBIx::Class::Storage::NESTED_ROLLBACK_EXCEPTION;
 
 use overload '"' => sub {
@@ -32,7 +36,6 @@ use overload '"' => sub {
 
 sub new {
   my $class = shift;
-
   return bless {}, $class;
 }