for (@$chain) { ... }

##</code><code>##

#!perl

use warnings;
use strict;

use IO::Handle;


{
package Object::MethodChain;
use overload q[""], "__Set_MethodChain__";
AUTOLOAD {
        my $self = shift;
        my $class = ref($self) || $self;
        my @new = ref($self) ? @$self : ();
        our $AUTOLOAD =~ /.*::(.*)/s or
                die "error: invalid method name";
        push @new, {"method", $1, "args", \@_};
        bless \@new, $class;
}
our $chain;
sub __Set_MethodChain__ {
        $chain = $_[0];
        "Object::MethodChain::__Call_MethodChain__";
}
sub __Call_MethodChain__ {
        my $r = $_[0];
        for my $pair (@$chain) {
                my($method, $args) = @$pair{"method", "args"};
                $r = $r->$method(@$args);
        }
        $r;
}
DESTROY {
}
}


{
package AnObj;
sub new {
        bless [], $_[0];
}
sub foo {
        my $c = Object::MethodChain->print("just ");
        STDOUT->$c;
        $_[0];
}
sub bar {
        $_[1] = "ack";
        OtherObj->new("erl h");
}
}


{
package OtherObj;
sub new {
        bless [$_[1]], $_[0];
}
sub baz {
        print "anot", $_[1], $_[0][0];
        "er,\n";
}
}


{
my $f = "foo";
my $c = Object::MethodChain->new->$f->bar(my $v)->baz("her p");
my $n = AnObj->$c;
print $v, $n;
sub new {
        bless [], $_[0];
}
sub foo {
        my $c = Object::MethodChain->print("just ");
        STDOUT->$c;
        $_[0];
}
sub bar {
        $_[1] = "ack";
        OtherObj->new("erl h");
}
}


{
package OtherObj;
sub new {
        bless [$_[1]], $_[0];
}
sub baz {
        print "anot", $_[1], $_[0][0];
        "er,\n";
}
}


{
my $f = "foo";
my $c = Object::MethodChain->new->$f->bar(my $v)->baz("her p");
my $n = AnObj->$c;
print $v, $n;
}


__END__