use strict und booleans

[Cruz]

Hallo,

In Java gibt es ja die wunderbare Möglichkeit...

TestMe()
{
 if (rot) return false;
 if (grün) return true;
}

if (TestMe())
{
 print "yay es ist grün";
}

if (!TestMe())
{
 pritn "misst es ist rot";
}

Aber in Perl scheint sowas nicht zu gehen. Man muss wohl sowas wie...

if (TestMe() eq TRUE)...

schreiben. Zudem verbietet noch use strict die Verwendung von TRUE und FALSE als barewords, also wird das ganze nur noch zu nem blöden Stringvergleich mit "TRUE". Was ist denn der beste/eleganteste Möglichkeit in Perl Booleans einzusetzen und irgendwas auf TRUE oder FALSE zu checken? (natürlich unter Verwendung von strict)

Gruß und Dank
Cruz