Decorator in Perl? - #115276 (Allgemeines zu Perl)

Ronnie

2008-10-08 17:03

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

Eine Möglichkeit die ursprünglische Funktion zu ersetzen habe ich schon gefunden:

Code (perl): (dl )

sub real_decorate_h1 {
    my $sub     = shift;
    my $subname = Sub::Identify::sub_name( $sub );
    Sub::Install::reinstall_sub({
        code => sub { my @args = @_; return "<h1>" . $sub->(@args) . "</h1>" },
        as   => $subname,
    });
    return;
}

Lieber wäre mir das ganze aber wenn es syntaktisch so möglich wäre:

Code (perl): (dl )

1
2
3

sub hello_world :decorate_h1 {
    # yada yada yada
}

So das man bedarfsweise nur das Attribut entfernen muss?!