sub AUTOLOAD
{
	use vars qw($AUTOLOAD);
	
	my ($pkg,$method) = ($AUTOLOAD =~ /(.*)::(\w+)$/);
	
	my ($self,@args) = @_;
	
	my $pkgTmplt;
	my $pkgv = $pkg.'::_template';
	{
		no strict 'refs';
		
		$pkgTmplt = $$pkgv{$method};
	}
	
	if ($pkgTmplt)
	{
		my $acc = $self->accessor($method,$pkgTmplt);
		my $chunk = <<END
package $pkg;

sub $method
{
	$acc
}
END
		;
		
		eval $chunk;
		die "Error making accessor: $@\nCode follows:\n$chunk" if $@;
		wantarray ? ($self->$method(@args)) : $self->$method(@args);
		
	} else
	{
		croak "Unknown sub $method in $pkg ";
	}
}