File Coverage

blib/lib/Class/Proxy.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	10	0.0
condition	0	2	0.0
subroutine	6	10	60.0
pod	1	1	100.0
total	25	59	42.3

require 5.005_62; use strict; use warnings;

our $VERSION = '0.01.04';

use Carp;

use Class::Maker;

use Class::Listener;

package Class::Proxy;

Class::Maker::class
{
	isa => [qw( Class::Listener )],

	private =>
	{
		ref => { victim => 'UNIVERSAL' },
	},
};

use vars qw($AUTOLOAD);

sub _preinit
{
	my $this = shift;

		$this->_victim( undef );
}

sub _postinit
{
	my $this = shift;

		$this->victim( $this->_victim ) if $this->_victim;
}

sub victim : method
{
	my $this = shift;

	my $destination = shift;

			# Binding to class or object...

		$this->_victim( ref($destination) ? $destination : $destination->new( @_ ) );

		$this->signal( 'victim', $this->_victim );

return $this->_victim;
}

	# Future: Class::Proxy should more obscure himself
	#
	#	"goto &func" would be the best solution.
	#
	#	#my $fullfunc = \&{ "${destpack}::$func" };
	#	#goto &$fullfunc if $victim->can( $func ) or die "unhandled method $victim->$func via Obsessor";

sub AUTOLOAD : method
{
	my $this = shift || return undef;

	my @args = @_;

		( my $func = $AUTOLOAD ) =~ s/.*:://;

		return if $func eq 'DESTROY';

		#no strict 'refs';

		@_ = @args;

		$this->Class::Listener::signal( 'method', \$func, \$this->_victim, \@args );

		die "unimplemented '$func' called on ".ref( $this->_victim ) unless $this->_victim->can( $func );

return wantarray ? @{ [ $this->_victim->$func( @_ ) ] } : $this->_victim->$func( @_ );
}

1;

__END__