Select Code to Download

#/usr/bin/perl

...

print Dumper $inherited->{'provides'};

package parent;

...
}

1;

package inherited;

...
sub _private_method() { }

1;

$VAR1 = [
          'bar',
          'foo',
          'baz'
        ];