Coderef innerhalb von new() weitergeben

[Struppi]

@$Menu_Funs{ @menu_items } = ( $code_ref ) x scalar( @menu_items );

sagen wir mal so, du hast einen sehr eigenwilligen Stil
Ich hab keine Ahnung ob du wirklich weißt was du da tust und ich frage mich warum du unbedingt versuchst den Code möglichst unleserlich zu machen. Perl ist relativ schnell und wird nicht wesentlich schneller durch solche undurchschaubare Konstruktionen.

Was ich allerdings nicht verstehe: Wieso dauert diese Funktion unendlich lang egal ob Coderef oder Objekt übergeben wird?

Läßt sich so nicht sagen, dein Code läßt sich leider auch nicht testen.

Struppi.