eval is evil: Willkommen auf der dunklen Seite?! - #71914 (Allgemeines zu Perl)

Ronnie

2006-11-22 21:21

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Hallo miteinander,

nachdem ich lange eval missachtet habe, aus den bekannten Gründen - wollte ich jetzt ein wenig damit experimentieren (nachdem ich in fremden Gewässern gefischt habe). Mein erster Versuch scheiterte aber bereits direkt:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

package Foo;

sub new {
    my $class = shift;
    my $self = { items => \@_ };
    return bless $self, $class;
}

sub add_method {
    my $self = shift;
    my $name = shift;
    die unless $name and $name =~ /^\w+$/;
    eval (
        sub $name {
            my $self = shift;
            my $item = $name;
            return [ @{$self->{items}}, $item ];
        }
    );
}

package main;

my $foo = Foo->new(qw/foo bar/);
print Dumper $foo;

$foo->add_method('buz');
print Dumper $foo->buz;

Ich wollte Methoden on-the-fly erstellen, Perl ist aber dagegen:
Illegal declaration of anonymous subroutine

Habt ihr schon mal was in der Richtung gemacht und gibt es Empfehlungen wo man etwas über Meta-Programming in Perl findet?

Natürlich geht folgende Variante, aber die finde ich im Ergebnis nicht so schön:

Code: (dl )

sub add_lambda {
    my $self = shift;
    my $name = shift;
    die unless $name and $name =~ /^\w+$/;
    $self->{$name} = sub {
        my $self = shift;
        my $item = $name;
        return [ @{$self->{items}}, $item ];
    }
}

Vorschläge?

Gruß,
Ronnie