package Example;

use overload q{bool} => sub { $_="def"; }; 

sub new { bless {}; } 
sub test { return $_[0]; } 

package main;
my $z=new Example;
$_="ghi";
while ($m = $z->test()) { 
  print; 
  print $m; 
  last; 
};