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