package Chain;

sub new {
   my $proto = shift;
   my $self  = {obj => shift};
   bless $self, $proto;
   return $self;
}

sub AUTOLOAD {
   my $self = shift;
   my ( $method ) = ( our $AUTOLOAD =~ /.*::(.*)/ );
   $self->{obj}->$method( @_ );
   $self;
}

1;

##</code><code>##

use strict;
use warnings;

use lib ".";
use Chain;
use Test;

my $t = new Test;

$t->hello;
$t->cool(1,2);

Chain->new($t)
   ->test
   ->hell(1,2,3)
   ->say("hello");