Select Code to Download

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

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

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

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

Object::MethodCall->method1(@args1)

{
package Object::MethodChain;
...
}
}

{
package Object::MethodChain;
...
DESTROY {
}
}

$chain = Object::MethodChain->foo;

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

{
package Object::MethodChain;
...
DESTROY {
}
}

{
package Object::MethodChain;
...
DESTROY {
}
}

{
package AnObj;
...
 "er,\n";
}
}

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

{
my $f = "foo";
...
my $n = AnObj->$c;
print $v, $n;
}

{
my $f = "foo";
...
my $n = AnObj->$c;
print $v, $n;
}

bless( [
  {
...
    'method' => 'baz'
  }
       ], 'Object::MethodChain' );