Select Code to Download

package SomeClass;
use overload '""'=>"name";
...
    return $self->{NAME};
}
1;

use lib '.';
use SomeClass;
...
print "Explicit: my name is ", $thing->name, "\n";
print "Implicit: my name is $thing\n";
exit;

sub stringify {
    my $self = shift;
    return $self->{NAME};
}