# file Useless/Nothing.pm
1;

##</code><code>##

qwurx [shmem] ~> perl -E '$foo = bless {}, "CORE"; $foo->bless("blorf"); say $foo'
blorf=HASH(0x1e53e78)
qwurx [shmem] ~> perl -e '$foo = bless {}, "blorf"; $foo->bless("CORE"); say $foo'
Can't locate object method "bless" via package "blorf" at -e line 1.
qwurx [shmem] ~> perl -e '$foo = {}; $foo->bless("blorf"); say $foo'
Can't call method "bless" on unblessed reference at -e line 1.

##</code><code>##

package Whatever;

sub bless {
    my ($object, $class) = @_;
    return bless $object, $class;
}