#!/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;

#/opt/bin/perl
use strict;

package childmodul;

sub new
  {    
    my ($class,$hsh_scriptParam) = @_;                    # Hash mit der Übergabestruktur uebernehmen
    my @caller = caller(0);
    my $self;
    
    $self = {
      %{$hsh_scriptParam}
      };

    
    # Die Funktion bless() verknüpft ein Objekt mit einem Packagenamen (Binden eines Objekts an eine Klasse)    
    bless $self, $class;
    
    $self;
    
  }
  

sub set_Data() {
  use Data::Dumper;

  my $self = shift;  # eigene Klassenreferenz holen
  my $args = {@_};   # Parameterliste in Hash umwandeln
  my $wert;

  if (ref($args->{block}) eq 'HASH') {
    no strict 'refs';

    print Dumper $self->{$args->{block}};
    print Dumper $args->{block}->{test};
    for (@{$args->{block}->{test}}) {
      $wert .= '{'.$_.'}'."->";
    }
    $wert .= '{'.$args->{key}.'}';

    print "wert= $wert\n";
    my $wert1 = \$wert;
    print "wert1= $$wert1\n";
    print "wert1= $self->{${$wert1}}\n";

    if ( exists($self->{$wert}) ) {
      # Key existiert --> Wert setzen
      $wert.'{'.$args->{key}.'}' = $args->{wert};
      return 0;
    } else {
      # Fehler zurückgeben: Key existiert nicht in der Datenstruktur
      return -1;
    }
  }
}

1;