From e2ef940c0526773fb3908568ad40349def22b47c 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 --- Koha/Object.pm | 13 ------------- Koha/Objects.pm | 15 --------------- 2 files changed, 28 deletions(-) diff --git a/Koha/Object.pm b/Koha/Object.pm index 515d8375c0..e71e9032b4 100644 --- a/Koha/Object.pm +++ b/Koha/Object.pm @@ -846,19 +846,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 9a2eeb2d89..133d0cb08e 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.20.1