From 712e67aa7efa032c35103dc90a7243361eebe568 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 23 Mar 2017 22:03:19 -0300
Subject: [PATCH] Bug 18332: Add the Koha::Objects->last method
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

DBIx::Class does not provide such method, but it can be handy in some
cases.

Test plan:
  prove t/db_dependent/Koha/Objects.t
should return green

Test returned green.
Signed-off-by: Marc Véron <veron@veron.ch>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 Koha/Objects.pm               | 26 +++++++++++++++++++++++++-
 t/db_dependent/Koha/Objects.t | 15 ++++++++++++++-
 2 files changed, 39 insertions(+), 2 deletions(-)

diff --git a/Koha/Objects.pm b/Koha/Objects.pm
index 86a5789466..1a52188d76 100644
--- a/Koha/Objects.pm
+++ b/Koha/Objects.pm
@@ -205,6 +205,30 @@ sub next {
     return $object;
 }
 
+=head3 Koha::Objects->last;
+
+my $object = Koha::Objects->last;
+
+Returns the last object that is part of this set.
+Returns undef if there are no object to return.
+
+=cut
+
+sub last {
+    my ( $self ) = @_;
+
+    my $count = $self->_resultset->count;
+    return unless $count;
+
+    my $result = $self->_resultset->slice($count - 1, $count)->first;
+
+    my $object = $self->object_class()->_new_from_dbic( $result );
+
+    return $object;
+}
+
+
+
 =head3 Koha::Objects->reset();
 
 Koha::Objects->reset();
@@ -335,7 +359,7 @@ Currently count, pager, update and delete are covered.
 sub AUTOLOAD {
     my ( $self, @params ) = @_;
 
-    my @known_methods = qw( count pager update delete result_class single );
+    my @known_methods = qw( count pager update delete result_class single slice );
     my $method = our $AUTOLOAD;
     $method =~ s/.*:://;
 
diff --git a/t/db_dependent/Koha/Objects.t b/t/db_dependent/Koha/Objects.t
index 29dea679bb..f1910daf5b 100644
--- a/t/db_dependent/Koha/Objects.t
+++ b/t/db_dependent/Koha/Objects.t
@@ -19,7 +19,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 11;
+use Test::More tests => 12;
 use Test::Warn;
 
 use Koha::Authority::Types;
@@ -127,6 +127,19 @@ subtest 'single' => sub {
     "Warning is presented if single is used for a result with multiple rows.";
 };
 
+subtest 'last' => sub {
+    plan tests => 3;
+    my $builder = t::lib::TestBuilder->new;
+    my $patron_1  = $builder->build( { source => 'Borrower' } );
+    my $patron_2  = $builder->build( { source => 'Borrower' } );
+    my $last_patron = Koha::Patrons->search->last;
+    is( $last_patron->borrowernumber, $patron_2->{borrowernumber}, '->last should return the last inserted patron' );
+    $last_patron = Koha::Patrons->search({ borrowernumber => $patron_1->{borrowernumber} })->last;
+    is( $last_patron->borrowernumber, $patron_1->{borrowernumber}, '->last should work even if there is only 1 result' );
+    $last_patron = Koha::Patrons->search({ surname => 'should_not_exist' })->last;
+    is( $last_patron, undef, '->last should return undef if search does not return any results' );
+};
+
 subtest 'Exceptions' => sub {
     plan tests => 2;
 
-- 
2.39.5