# Untested code, not for production use
# see "hard-to-debug trouble"
package Proxy;
use strict;

use vars qw($AUTOLOAD);

sub AUTOLOAD {
  my $self = shift;
  $AUTOLOAD =~ m!::([^:]+)$!
    or die __PACKAGE__ . ": Weird method name $AUTOLOAD";
  my $method = $1;
  $self->()->$method(@_);
};

sub new {
  my ($package,$master) = @_;
  my $self = sub {
    my $s = shift;
    if (@_) {
      $master = shift;
    };
    $master;
  };
  bless $self, $package;
  $self;
};