use 5.026;
use Test::More tests => 3;

use overload "==" => \&my_compare;
sub my_compare {
    my ($left, $right) = @_;
    if (ref $left  eq  ref $right) {
        return $$left  eq  $$right;
    }
    elsif (! ref $right) {
        return $$left eq $right;
    }
}

sub comparable {
    my $name = shift;
    bless \$name;
}

my $name = comparable "Erwin";
my $hugo = comparable "Hugo";

ok($name == "Erwin",     "Name ist Erwin");
 
ok("Erwin" == $name,     "Name ist Erwin, auch andersrum");

ok(not ($name == $hugo), "Name ist nicht Hugo");