Vererbung in Modulen (Allgemeines zu Perl)

[thread]6302[/thread]

Vererbung in Modulen

Leser: 1

pktm

2004-06-01 22:47

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich habe ein Modul namens CMS.pm
Die Funktionalität davon würde ich jetzt gerne erweitern.
In CMS.pm gibt es eine Sub namens setup{}, da werden alle Aktionen definiert.
Jetzt würde ich gerne eine Erweiterung wie CMS::Feedback schreiben, in der die sub setup{} erweitert wird.
Wie aber kann ich die möglichen Aktionen des CMS wahren und trotzdem weitere hinzufügen?
Die Aktionen müssen in der Sub setup{} definiert werden (wens interessiert: CGI::Application ist das Modul welche sich zu meinem Zwecke verwede. Da sollte man alle Aktionen -> Runmodes in der Sub setup{} deklarieren).
Was nun?
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

esskar

2004-06-01 23:19

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

package CMS::Feedback;

use base qw(CMS);

sub setup
{
   my ($self, @args) = @_;

   $self->SUPER::setup(); # CMS::setup aufrufen

   # andere sachen ausführen
}


1;

View all threads created 2004-06-01 22:47.