# just for fun ;-)
sub O::v { bless $_[0],'o'; 0 }
sub o::v { bless $_[0],'O'; 1 }

my $o=bless {}, 'o';
print $o->v for 1..10;