LiveDomain Proxy with perl, step 1, intercept method calls and invoke on wrapped model.

gistfile1.pl

package LiveDomain::Proxy;

sub new()
{
  my ($package,$system) = @_;
	return bless {system => $system};
}

sub AUTOLOAD
{
	our $AUTOLOAD;
	(my $method = $AUTOLOAD) =~ s/.*:://s; #remove package name
	my ($self,@args) = @_;
	my $code = sprintf( '$self->{system}->%s(%s)', $method, join ", ", @args);
	#TODO: log method and args
	eval $code or die $@;
}
1;

livedb_test.pl

use LiveDomain::Proxy;
use strict;
use warnings;

my $object = Model::create();
$object->method(4..6);
print "Calls: ", $object->{calls}, "\n";

my $proxy = new LiveDomain::Proxy($object);
$proxy->method(1,2,3);

print "Calls: ", $object->{calls}, "\n";


package Model;
sub create
{
  return bless {calls => 0};
}
sub method
{
	my ($self,@args) = @_;
	$self->{calls}++;
	print "Hello world!, args=[@args]\n";
}