==b o.o and ==q ò.ó operators

oll_korrect.pl

use 5.20.0;

use utf8;
use experimental 'postderef';

package Approved; 

sub o { '9.9  oh my... suuuuure, why not?' }
sub b { pop }

use overload 
    '""' => sub { $_[0]->$* },
    '==' => sub { $_[1] > 0 ? $_[0] : !$_[0] };



my( $bad, $good ) = map { bless \$_, 'Approved' } 0..1;

say "yay" if $good ==b o.o;

say "boo" if $bad ==q ಠ_ಠ ;