package TestClass; require ConfigFile; sub new { my $that=shift; my $class=ref($that) || $that; my $self={ Verbose => 1, RaiseErrors => 0, Config => ConfigFile->new() }; bless $self, $class; return $self; } sub anything { my $self=shift; # Access config via $self->{Config}->get_conf() return; } 1;