(Perl DBI) Where-Klausel global setzen

[Horst]

Frage: Gibt es die Möglichkeit, eine WHERE-Klausel global so zu setzen, dass z.B. aus einem
SELECT name, vname FROM adressen

automatisch ein
SELECT name, vname FROM adressen WHERE visible=1

wird?

Ich löse das über eine eigene Subroutine, evtl. wäre das ein Denkanstoß:

Isses! Cool!

Vielen Dank und Grüße,
Hotte