my $mo = main->new;

my $code = $mo->can('foo') or die "Die Methode wurde nicht gefunden";
$mo->$code(); # execute
print Dumper $mo; # INCR => 1

sub new{ return bless{INCR => 0}, shift }

sub AUTOLOAD{
	my $self = shift;
	my $subname = our $AUTOLOAD;
	$subname =~ s/.*:://; # extrahiere Klassen Name
	if(exists $mh{$subname}){
		# compiliert wird hier
		my $code = eval "sub{$mh{$subname}}";
		return $self->$code(@_);
	}
}