sub __Call_MethodChain__ {
        my $r = $_[0];
        my @chain = @$chain;
        for my $pair (@chain) {
                my($method, $args) = @$pair{"method", "args"};
                $r = $r->$method(@$args);
        }
        $r;
}

##</code><code>##

sub __Call_MethodChain__ {
        my $r = $_[0];
        my @chain = @$chain;
        for (;;) {
                my $pair = shift @chain;
                my($method, $args) = @$pair{"method", "args"};
                0 == @chain and
                        return $r->$method(@$args);
                $r = $r->$method(@$args) ;
        }
}