[% #
   # Template "tbl_pessoa_fisica.tt2"
   #
   USE pessoa_fisica  = Class('reciclar::cdbi::pessoa_fisica');

   # The values in the FOREACH list are all variable names
   # provided by my template renderization engine. It works
   # receiving some parameters and is well-tested, as I've
   # used it unmodified in many projects before this.
   #
   FOREACH item = [ "id", "primeiro_nome", "sobrenome", "display_name"
+, "cep", "nome_logradouro", "numero", "cidade", "estado", "ddd", "tel
+efone" ];
     # IF ${$item}.defined(); THEN;  ### doesn't work for me
     # IF ${$item} != ""; THEN;      ### doesn't work for me
     IF ${$item}; THEN;
       ## Should do the same of perl's "$params{$item} = ${$item};"
       params.$item = ${$item};
     END;
   END;

   ### Here is my problem:
   ### params.keys() never returns a key list (hash is empty!),
   ### despite what I pass as parameters.
   IF params.keys(); THEN;
      list_pessoa_fisica =
         pessoa_fisica.search_where( params, { logic => "and" } );
   ELSE;
      list_pessoa_fisica = pessoa_fisica.retrieve_all();
   END;
%]
[download]

Things put short, I need to construct a parameter list based on a bunch of variables that I'll receive inside the template from the Perl script running it. I can't accept blank and undef() values into this hash, so I can pass it as my Class::DBI::AbstractSearch::search_where() parameter list.