*Bar:: = \*Foo:: ;

##</code><code>##

package Foo ;

sub new { bless {} }

sub test { print "TEST> [@_]\n" ; }

package main ;

  *Bar:: = \*Foo:: ;

  my $foo = Foo->new() ;
  $foo->test(123) ;
  print "$foo\n" ;

  my $bar = Bar->new() ;
  $bar->test(456) ;
  print "$bar\n" ;


##</code><code>##

TEST> [Foo=HASH(0x1a4ece4) 123]
Foo=HASH(0x1a4ece4)
TEST> [Foo=HASH(0x15d53dc) 456]
Foo=HASH(0x15d53dc)