Select Code to Download

package My::Config;
...

1;

package My::Base;

...

1;

!/usr/bin/perl

...
$config->base_directory("/home/otheruser/");

print $config->base_directory() , "\n";

#!/usr/bin/perl

...
$object->config->base_directory("/home/otheruser/");

print $object->config->base_directory() , "\n";

#!/usr/bin/perl

...

print $object->base_directory() , "\n";