package Man; # delegation # die Methode einer nicht verwandten Klasse wird zu einer # eigenen Methode gemacht sub gibMirEineCola{ my $self = shift; return $self->{COLABOT}->gibMirEineCola(@_); }