Bug 11891: (follow-up) remove custom storage class
authorGalen Charlton <gmc@esilibrary.com>
Wed, 18 Jun 2014 22:25:22 +0000 (22:25 +0000)
committerTomas Cohen Arazi <tomascohen@gmail.com>
Thu, 19 Jun 2014 14:55:03 +0000 (11:55 -0300)
For now, just rely on the normal DBIx::Class cleanup handler;
otherwise, the following warning is displayed in logs:

  (in cleanup) Can't locate object method "_preserve_foreign_dbh" via package "Koha::Storage" at .../Koha/Storage.pm

Using the default DBIC storage class also means that we
don't have to manually do things like set the SQL limit dialect;
meaning that we don't get the following warning message:

  DBIx::Class::ResultSet::find(): Your storage class (Koha::Storage) does
  not set sql_limit_dialect and you have not supplied an explicit
  limit_dialect in your connection_info. DBIC will attempt to use the
  GenericSubQ dialect, which works on most databases but can be (and
  often is) painfully slow. Please file an RT ticket against
  'Koha::Storage' . at /home/gmc/koha/C4/Members.pm line 840

Test plan: same as main patch

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
Koha/Schema.pm
Koha/Storage.pm [deleted file]

index 111855c..cffc631 100644 (file)
@@ -15,6 +15,6 @@ __PACKAGE__->load_namespaces;
 # Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:oDUxXckmfk6H9YCjW8PZTw
 
-__PACKAGE__->storage_type('Koha::Storage');
 
+# You can replace this text with custom content, and it will be preserved on regeneration
 1;
diff --git a/Koha/Storage.pm b/Koha/Storage.pm
deleted file mode 100644 (file)
index 599b6a1..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-use utf8;
-package Koha::Storage;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Class::Storage::DBI';
-sub DESTROY {
-    my $self = shift;
-
-    # destroy just the object if not native to this process/thread
-    $self->_preserve_foreign_dbh;
-
-    $self->_dbh(undef);
-}
-1;