From aa3b7fb50d5fe48d7313adba974dd8dfc3d6462a Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Wed, 29 Jun 2022 12:25:35 +0100
Subject: [PATCH] Bug 29523: Remove no longer required methods

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 Koha/Object.pm  | 13 -------------
 Koha/Objects.pm | 15 ---------------
 2 files changed, 28 deletions(-)

diff --git a/Koha/Object.pm b/Koha/Object.pm
index b1895c060e..c05a923cfe 100644
--- a/Koha/Object.pm
+++ b/Koha/Object.pm
@@ -896,19 +896,6 @@ sub _get_object_class {
     return ${type};
 }
 
-sub _get_objects_class {
-    my ( $self ) = @_;
-    return unless $self;
-
-    if ( $self->_result->can('koha_objects_class') ) {
-        return $self->_result->koha_objects_class;
-    }
-    my $type = ref($self);
-
-    $type =~ s|Schema::Result::||;
-    return $type . "s";
-}
-
 =head3 AUTOLOAD
 
 The autoload method is used only to get and set values for an objects properties.
diff --git a/Koha/Objects.pm b/Koha/Objects.pm
index 706ddba69e..dc3d044bd3 100644
--- a/Koha/Objects.pm
+++ b/Koha/Objects.pm
@@ -142,21 +142,6 @@ sub search {
     return $class->_new_from_dbic($rs);
 }
 
-=head3 search_limited
-
-    my $rs = $self->search_limited
-
-Generic method that is just a pass through for I<search>. It is expected to be overloaded
-locally on classes. It's main purpose is to avoid the need to check if the class implements
-the method locally.
-
-=cut
-
-sub search_limited {
-    my ( $self, $params, $attributes ) = @_;
-    return $self->search( $params, $attributes );
-}
-
 =head3 search_related
 
     my $objects = Koha::Objects->search_related( $rel_name, $cond?, \%attrs? );
-- 
2.39.5