Help for this page

Select Code to Download


  1. or download this
    {
    my $singleton = bless \my($x), __PACKAGE__;
...
    sub AUTOLOAD { return $singleton }
    sub can { return sub { return $singleton } }
}
  2. or download this
    bless ( do{ \( my $o = undef ) }, 'package_name' )