Select Code to Download

...
use Config qw(getConfig);
...
my $foo = getConfig('bar');
...

package Config;

...
sub getConfig{...}
...
1;

package Config;

...
}
...
1;

...
use_ok('Config');
is($Config::initialised, 1); # initialisation completed OK

t/Config....Name "Config::var" used only once: possible typo at t/Conf
+ig.t line 9.
#     Failed test (t/Config.t at line 9)
#          got: '0'
...
t/Config.t     1   256     2    1  50.00%  2
Failed 1/1 test scripts, 0.00% okay. 1/2 subtests failed, 50.00% okay.
make: *** [test_dynamic] Error 2

package Config;

...
}

1;