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

diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm
index 6a51979..735006c 100644
--- a/lib/DBIx/Class/Storage.pm
+++ b/lib/DBIx/Class/Storage.pm
@@ -1,4 +1,5 @@
-package DBIx::Class::Storage;
+package # hide from PAUSE
+    DBIx::Class::Storage;
 
 use strict;
 use warnings;
@@ -7,9 +8,13 @@ sub new { 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 +27,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,8 +35,8 @@ use overload '"' => sub {
 
 sub new {
   my $class = shift;
-
-  return bless {}, $class;
+  my $self = {};
+  return bless $self, $class;
 }
 
 1;