Re: Closures

[Aristotle]

in reply to Building an anonymous subroutine

How about:

sub template {
    my $e = shift;

    my $not_common_a = 
        $e eq 'b' ? sub { ... } :
        $e eq 'u' ? sub { ... } :
                    sub { ... } ;

    my $not_common_b = 
        $e eq 'x' ? sub { ... } :
                    sub { ... } ;

    return sub {
        $common_stuff;
        $not_common_a->();
        $more_common_stuff;
        $not_common_b->();
    }
}

____________
Makeshifts last the longest.

[BorgCopyeditor]

Thanks. It looks obvious ... now that I've seen a solution. :) I ended up doing it inside out, as it were, initially defining an anonymous sub just for the part of the enclosing sub that needed differing behaviors, and calling that within that enclosing sub.

The conditional assignment thingy with nested ternary '?'s is very elegant, I think.

Thanks again,

BCE