Help for this page

Select Code to Download


  1. or download this
    {
        package Foo;
    ...
    
    use Data::Dumper;
    print Dumper(Foo->foo);
    
  2. or download this
    $VAR1 = bless( {}, 'Foo' );
    
  3. or download this
    *Bar::foo = \*Foo::foo;
    
  4. or download this
    $VAR1 = bless( {}, 'Bar' );
    
  5. or download this
    print Dumper(Foo->foo);
    print Dumper(Bar->foo);