Select Code to Download

package Foo;

...
    _init($self);
    $self;
}

package Foo;

...
    $self->Bar::_init;
    $self;
}

package main;
use Data::Dumper;
...
                 'bar' => 2,
                 'foo' => 1
               }, 'Bar' );