Hallo, ich beisse mich derzeit durch Catalyst und Co und habe ein bisschen Probleme mit der etwas spärlichen Dokumentation.

Ich bin gerade auf ein Problem gestossen eine Methode augzurufen, die es mir erlaubt die Column-Namen eines Tables aus mysql zu bekommen. Für das Model in Catalyst benutze ich DBIx, die Tabellen sind in von DBIx::Class abgeleiteten Klassen.

Diese Klasse enthält die Methode 'columns' welche genau das obige ausführt.

In Catalyst wird die Ansteuerung von Objekten einer Webapplikation ja über ein Context-Object umgesetzt, wenn ich dieses aber aufrufe, um auf den Table zuzugreifen, bekomme ich ein DBIx::Class:ResultSet (Unterklasse von DBIx::Class) zurück und erhalte die Fehlermeldung:
DBIx::Class:ResultSet hat keine Methode "columns"

Zugriff auf den Table erfolgt so:


Wobei 'testDB::NameDesTable' der Name der Tabelle ist und model() eine Catalyst-Methode, um das entsprechende Model-Objekt aufzurufen.

Anfang von NameDesTable.pm (Model der Tabelle):



Bei der Model-Definition wird aber eigentlich die DBIx::Class eingebunden, also scheint Catalyst von sich aus bei dem Zugriff auf eine Tabelle nur ein DBIx::Class:Resultset zurückzugeben.


Lange Rede, kurzer Sinn, gibt es irgendeine Möglichkeit (in Catalyst oder Perl allgemein) das ganze auf die Überklasse zu 'casten' bzw. die dahinterstehende Klasse zurückzubekommen, um deren Methoden verwenden zu können?


Danke für alle Anregungen, Ideen, Beschimpfungen!

[edit=betterworld]code-tags[/edit]\n\n

<!--EDIT|betterworld|1149236309-->

es wird empfohlen, anstatt von DBIx::Class von DBIx::Class::Schema abzuleiten. schau am besten in die pod: DBIx::Class::Schema

@esskar: Nicht ganz. Wenn du in das von dir verlinkte Dokument
schaust, steht da drin, dass die *Tabellen* DBIx::Class als Basis
haben.

@Mangalore: Versuch $resultset->result_source->columns

stimmt; verpeilt;

[quote=Guest,02.June.2006, 11:27]...

@Mangalore: Versuch $resultset->result_source->columns[/quote]
Danke, das funktioniert, aber dumme Frage: Habe ich da bloss Glück, dass es im ResultSet sowas gibt oder ginge das theoretisch bei Perl auch anders?

Das ist eine reine Designsache und hat überhaupt nichts mit Perl
an sich zu tun.

[quote=Guest,02.June.2006, 12:18]Das ist eine reine Designsache und hat überhaupt nichts mit Perl
an sich zu tun.[/quote]
Da ich von Java her komme meinte ich eher, ob es in Perl Klassenvererbung gibt, aber nachdem ich jetzt mir zu diesem Catalystkonstrukt noch ein wenig angeschaut habe scheint es wohl nichts mit Klassenvererbung zu tun zu haben, oder?

Im konkreten Fall: Könnte man von einem DBIx::Class::ResultSet-Objekt auch auf die Methoden der DBIx::Class zugreifen? zumindest hier ging es nicht, ich weiss bloss nicht ob es an Sicherungen von Catalyst liegt oder allgemein nicht existiert.\n\n

<!--EDIT|Mangalore|1149254256-->

Grundsätzlich gibt es Vererbung in Perl. Dazu gibt es zwei Wege:

Weg 1

Weg 2 (schöner und besser):

Wenn jemand noch andere Wege kennt, dann bitte hier posten...\n\n

<!--EDIT|renee|1149275647-->

renee: beim ersten beispiel fehlt dir noch use SuperKlasse. unter anderem
deswegen ist use base besser.

noch ein weg:

das braucht man aber eigentlich nur bei dynamischer generierung von
vererbung.

stimmt, ist mir auf die schnelle entfallen...

Den dritten Weg kannte ich noch nicht... Das muss ich mir mal anschauen...