mit eval zum vorläufigen ziel

[Beat]

our %ex = (

#   Hier wird eine Funktione für [title:] deklariert
    #   Es gibt die funktion und defaultwerte.

title => {
      function => sub {
          ${$[0]} = '<h2';
          $PC->('children', 'class') and ${$[0]} .= ' class="' . $PC->('children', 'class') . '"';
          ${$_[0]} .= '>'. parser( $PC->('children', 'c') ) .'</h2>';
      },

default => { element => 'h2', class => 'title', },

},

);

>   

......  

> Update  
> \_\_\_\_\_\_\_\_\_\_\_\_\_\_  
> Jetzt red ich so daher, korrigiere einen Fehler, und es funzt ganz funzig....  
  
nope....  
Man soll in Ruhe testen.  
  
Ich muss den perlcode als reinen Text importieren und im Context des Hauptscripts eval{}uieren.  
Kann nicht anders gehen, ausser ich will 1000 mal self->(irgendwas) schreiben.  
  
mfg Beat  
   <°)))o><                     ><o(((°>o