gistfile1.pl

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