#!/usr/bin/perl -w
use strict;

package Class::Proxy::MethodChain;
use vars qw($AUTOLOAD);

use constant OBJ => 0;
use constant RET => 1;

# handles method and constructor delegation
sub AUTOLOAD {
	my $self = shift;
	$AUTOLOAD =~ s/^.*:://;
	if(ref $self) {
		$self->[RET] = [ $self->[OBJ]->$AUTOLOAD(@_) ];
		$self;
	}
	else {
		bless [($self->$AUTOLOAD(@_))x2];
	}
}

# wrap existing object
sub wrap {
	my $self = shift;
	bless [(shift)x2];
}

# get last return value or pass it to a callback without
# breaking the chain
sub ret_val {
	my $self = shift;
	if(@_) {
		my $callback = shift;
                local *_ = $self->[RET];
		&$callback(@_);
		return $self;
	}
	else {
		return @{$self->[RET]};
	}
}

# convenience function for when the return value is an objref
sub ret_wrap {
	my $self = shift;
	my $wrapped = __PACKAGE__->wrap($self->[RET]->[0]);
	if(@_) {
		my $callback = shift;
		$callback->($wrapped);
		return $self;
	}
	else {
		return $wrapped;
	}
}

# allow calling methods with the same names as CPMC's
sub call {
	$AUTOLOAD = shift;
	goto &AUTOLOAD;
}

sub DESTROY() {}

1;