[Koha-patches] [PATCH] use Memoize to cache results of GetAuthorisedValues
Galen Charlton
galen.charlton at liblime.com
Fri Jun 19 12:55:48 CEST 2009
Thanks to Frédéric Demians for the original impetus
to improve this function and for doing profiling.
Note that Memoize is a core module since at least 5.8.0.
---
C4/Koha.pm | 4 ++++
1 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/C4/Koha.pm b/C4/Koha.pm
index b4ce84b..05e3074 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -22,6 +22,7 @@ use strict;
use C4::Context;
use C4::Output;
use URI::Split qw(uri_split);
+use Memoize;
use vars qw($VERSION @ISA @EXPORT $DEBUG);
@@ -62,6 +63,9 @@ BEGIN {
$DEBUG = 0;
}
+# expensive functions
+memoize('GetAuthorisedValues');
+
=head1 NAME
C4::Koha - Perl Module containing convenience functions for Koha scripts
--
1.5.6.5
More information about the Koha-patches
mailing list