Select Code to Download

sub __Call_MethodChain__ {
        my $r = $_[0];
...
        }
        $r;
}

sub __Call_MethodChain__ {
        my $r = $_[0];
...
                $r = $r->$method(@$args) ;
        }
}