package Whatever;

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