From aa3b7fb50d5fe48d7313adba974dd8dfc3d6462a Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 29 Jun 2022 12:25:35 +0100 Subject: [PATCH] Bug 29523: Remove no longer required methods Signed-off-by: Jonathan Druart Signed-off-by: Marcel de Rooy Signed-off-by: Tomas Cohen Arazi --- 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. 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