{
    my $singleton = bless \my($x), __PACKAGE__;
    sub new { return $singleton }
    sub AUTOLOAD { return $singleton }
    sub can { return sub { return $singleton } }
}

##</code><code>##

bless ( do{ \( my $o = undef ) }, 'package_name' )