$object->method1(@args1)->method2(@args2)->method3(@args3)

##</code><code>##

$chain = Object::MethodChain->method1(@args1)->method2(@args2)->method3(@args3);

##</code><code>##

$chain = Object::MethodChain->new("method1", \@args1, "method2", \@args2, "method3");

##</code><code>##

$chain = Object::MethodCall->method1(@args1)->method2(@args2);

##</code><code>##

Object::MethodCall->method1(@args1)

##</code><code>##

{
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];
 "__Call_MethodChain__";
}
sub UNIVERSAL::__Call_MethodChain__ {
 my $r = $_[0];
 for my $pair (@$chain) {
  my($method, $args) = @$pair{"method", "args"};
  $r = $r->$method(@$args);
 }
 $r;
}
DESTROY {
}
}


##</code><code>##

{
package Object::MethodChain;
AUTOLOAD {
 my $s = shift;
 my $c = ref($s) || $s;
 my $p = ref($s) ? $s : sub { $_[0] };
 our $AUTOLOAD =~ /.*::(.*)/s or die;
 my $m = $1;
 my $a = \@_;
 bless sub { 
  &$p($_[0])->$m(@$a); 
 }, $c;
}
DESTROY {
}
}

##</code><code>##

$chain = Object::MethodChain->foo;

##</code><code>##

sub { $_[0]->foo; }

##</code><code>##

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

##</code><code>##

{
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 {
}
}

##</code><code>##

{
package AnObj;
sub new {
 bless [], $_[0];
}
sub foo {
 print "just ";
 $_[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";
}
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

bless( [
  {
    'args' => [],
    'method' => 'new'
  },
  {
    'args' => [],
    'method' => 'foo'
  },
  {
    'args' => [
         undef
       ],
    'method' => 'bar'
  },
  {
    'args' => [
         'her p'
       ],
    'method' => 'baz'
  }
       ], 'Object::MethodChain' );