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