$ perl -M5.010 -e'
   package Crazy {
      use overload
         bool     => sub { 1 },
         q{""}    => sub { "" },
         fallback => 1;
   }

   my $x = bless({}, Crazy::);
   say $x ? "true" : "false";
   say length($x);
'
true
0