#!/usr/bin/perl

# access configuration data through the My::Base class

use My::Base;
use strict;

my $object = My::Base->new();

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

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

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