package Test::Class;

use strict;
use warnings;
 
sub new {
    my ($className, $config) = @_;

    my $self = {};
    bless $self, $className;

    $self->{config} = \%{$config};

    return $self;
}

sub doSomething {
    my ($self, $what) = @_;

    print $self->{config}->{$what} . "\n";;
}

1;