# Datei Interface.pm als ein Beispiel

my $trailer = sub{
   my $self = shift;
};
my $init = sub{};
my $control = sub{};

# Letzte Anweisung in Datei
# das wird beim Einbinden mit do oder require zurückgegeben
# Code-Referenzen für Interface
{
    trailer => $trailer,
    init    => $init,
    control => $control
};