#!/usr/bin/perl

package main;

use strict;
use warnings;
use AutoLoader;
use Data::Dumper;

# Deklariere die Methoden 
# damit diese von AUTOLOAD gefunden werden
sub foo;
sub bar;

# diese methoden liegen als source in einem hash
# solch hash könnte z.B. mit DB_File als Datei angebunden sein
my %mh = (
        foo => q(
                my $self = shift;
                $self->{FOO} = 1;
                print "foo! @_\n";
        ),
        bar => q(
                my $self = shift;
                $self->{BAR} = 1;
                print "bar!\n";
        ),
);

my $mo = main->new; # Instanz der main class
# jetzt gucken wir mal, ob UNIVERSAL::can die Methode findet
my $code = $mo->can('foo') or die "no method found";

$mo->$code(arg => 123);
print Dumper $mo; # weitere Kontrolle, ob Attribut hinzugekommen ist

# methods in class
sub new{ 
        my $class = shift;
        my $self = bless{}, $class;
        return $self;
}

# overload AUTOLOAD
sub AUTOLOAD{
        my $self = shift;
        my $sub = our $AUTOLOAD;
        $sub =~ s/.*:://; # extrahiere Klassen Name
        if(exists $mh{$sub}){
                # aus der Source den Code erzeugen und ausführen
                my $code = eval "sub{$mh{$sub}}";
                $self->$code(@_);
        }
        else{
                return undef;
        }
}