From 5a53e8b3c7fa2b6d43f312400c9b2ebaa498fe60 Mon Sep 17 00:00:00 2001 From: daniel@ruoso.com Date: Tue, 2 Feb 2010 15:04:24 +0000 Subject: [PATCH] evita a busca constante de categorias no emissor de senhas, busca apenas uma vez. --- Fila-Senha/lib/Fila/Senha/Model/Emissor.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Fila-Senha/lib/Fila/Senha/Model/Emissor.pm b/Fila-Senha/lib/Fila/Senha/Model/Emissor.pm index e78ce09..77913b1 100644 --- a/Fila-Senha/lib/Fila/Senha/Model/Emissor.pm +++ b/Fila-Senha/lib/Fila/Senha/Model/Emissor.pm @@ -37,11 +37,12 @@ sub bloquear { } } +my $cats; sub abrir { my $self = shift; warn 'Buscando categorias..'; - my $cats = Fila::Senha->model('SOAP::Senha')->listar_categorias + $cats ||= Fila::Senha->model('SOAP::Senha')->listar_categorias ({ local => {} }); unless ($cats) { -- libgit2 0.21.2