#!/usr/bin/perl

use warnings;
use strict;

package childmodul;

    sub new {    
        my $classname = shift;
        my $self = {};
        $self->{ScriptParam}->{ScriptName} = $0;
        $self->{ScriptParam}->{Version} = "v.01";
        $self->{ScriptParam}->{Hilfe}->{Usage} = "ruf mich mal richtig auf";
        $self->{ScriptParam}->{Hilfe}->{Message} = 'rufe mal nach Mutti';
        $self->{Runtime}->{ApplName} = "TestClass";
        $self->{Runtime}->{Caller} = $^O =~ /win32/i ? $ENV{USERNAME} : $ENV{USER};
        $self->{Runtime}->{Loglevel} = "höher geht nicht";
        $self->{Runtime}->{RootPath} = "ganz oben";
        $self->{Runtime}->{StartTime} = "am Anfang";
        $self->{DBParam}->{RegPar} = "test";
        $self->{DBParam}->{dbSession}->{ApplName} = "testhash";
        $self->{DBParam}->{dbSession}->{Action} = "insert";
        $self->{DBParam}->{dbSession}->{runtime}->{dbTable} = "INIT_REG";
        return bless($self, $classname);
    }

    sub set_Data {
        my $self = shift;
        my $val = shift;
        my @locations = @_;
        my $str = "\$self";
        my $i;
        foreach $i (@locations) {
            $str .= "->{$i}";
        }
        $str .= " = \"$val\";";
        eval($str) or die;
    }

package main;

my $Object1 = childmodul->new();
$Object1->set_Data('INIT_RUN', qw( DBParam dbSession runtime dbTable ));
print $Object1->{DBParam}->{dbSession}->{runtime}->{dbTable} . "\n";

$Object1->set_Data('update', qw( DBParam dbSession Action ));
print $Object1->{DBParam}->{dbSession}->{Action} . "\n";

$Object1->set_Data('debug', qw( Runtime Loglevel ));
print $Object1->{Runtime}->{Loglevel} . "\n";