perl boolean

わかりやすい。

      1 use strict;
      2 use warnings;
      3 use boolean ':all';
      4
      5 sub hoge {
      6     my ($hoge,) = @_;
      7
      8     if($hoge) {
      9         return true;
     10     }
     11     else {
     12         return false;
     13     }
     14 }

http://search.cpan.org/~ingy/boolean-0.11/lib/boolean.pm