in reply to Subroutine chaining idiom requested

Hmmm... I've never read that, but to just construct one on my own: 
$agenda = [ sub { "Hello" }, sub { scalar reverse shift }, sub { chop 
+shift } ];
chain($agenda, [ ]);

### BEGIN GOLF MODE ###
sub chain($$) { my@x=@{+pop};foreach(@{+shift}){@x=$_->(@x)}@x }
### END GOLF MODE ###

[download]

Update: Fixed argument-modification error, thanks to tilly for pointing that out.

Replies are listed 'Best First'.
Re (tilly) 2: Subroutine chaining idiom requested
by tilly (Archbishop) on May 24, 2001 at 07:24 UTC
    Did someone say golf? 
    sub chain{(*f,*_)=@_;@_=&$_ for@f;@_}

    [download]
    Of course you probably want strict compliant and it is bad style to modify your arguments in place. In which case it is probably better to make that: 
    sub chain{my($f,$a)=@_;$a=[&$_(@$a)]for@$f;@$a}

    [download]
    which is still reasonable...
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom