#!/usr/bin/perl

use 5.020;        #damit Neuerungen ab Perl 5.012 ohne - use feature ... - verwendet werden
                  #lädt auch gleich >>use strict<< mit
use strict;
use Data::Dumper;

use pck_test::childmodul;

  # Datenuebergabestruktur vorbereiten.
  # Die Klasse initialisiert auf Standardwerte, so dass man nur die Daten angeben muss,
  # die andere Werte bekommen sollen
  my $hsh_runtimeParam = {
      ScriptParam => {
          ScriptName => $0 || '???',
          Version    => 'v.01' || '???',
          Hilfe      => {
              Usage   => 'ruf mich mal richtig auf',
              Message => 'rufe mal nach Mutti'
          },
      },
      Runtime     => {
          ApplName   => 'TestClass',
          Caller     => $^O =~ /win32/i ? $ENV{USERNAME} : $ENV{USER}, # Username der dieses Script gestartet hat
          Loglevel   => 'höher geht nicht',
          RootPath   => 'ganz oben' || '???',
          StartTime  => 'am Anfang' || '???',
      },
      DBParam     => {
          RegPar     => 'test',
          dbSession  => {
            ApplName  => 'testhash',
            Action    => 'insert',
            runtime   => {
                          dbTable => 'INIT_REG'
                        }
          }
      }
  };
 # Objektinstanz der Childklasse erzeugen
 # dabei auch gleich gewuenschte neue Initialwerte uebergeben 
 my $Object1 = childmodul->new($hsh_runtimeParam);

$Object1->set_Data(
      #block => \$Object1->{DBParam}->{dbSession}->{runtime},
        block => {test =>
                  [
                   'DBParam',
                   'dbSession',
                   'runtime'
                 ]},
        key   =>'dbTable',
        wert  =>'INIT_RUN'
      );

print Dumper $Object1;