Handler <DATA> und Vererbung (gelöst) (Allgemeines zu Perl)

[thread]17298[/thread]

Handler <DATA> und Vererbung [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+3 replies
rosti

2012-04-06 12:20
User since
2011-03-19
3561 Artikel
BenutzerIn
Hallo Ihr Lieben,

in einer Klassenhierarchie habe ich die Methode data() in der Basisklasse:
Code (perl): (dl )

1 2 3 4 5 6

# Basisklasse ResponseHandler sub data{ my $self = shift; local $/ = undef; $self->{BODY} = <DATA>; }
Weiter unten gibt es die Klasse Test::Home, welche von der Basisklasse erbt. In der Datei Home.pm (Class Test::Home) soll nun auf die Daten unterhalb __DATA__ zugegriffen werden. Aber das funktioniert verständlicherweise nur, wenn die Methode data() in der Datei Home.pm selbst notiert ist (Overload Method), wenn das nicht der Fall ist, wird die Methode data() aus der Basisklasse ausgeführt, und da bezieht sich der Handler <DATA> natürlich auf die Datei ResponseHandler.pm.

Soweit ist mir das klar. Fräge:

Gibt es eine Möglichkeit, den <DATA>-Handler so umzubiegen, dass es nicht mehr erforderlich ist, in Home.pm u.a. Subklassen o.g. Methode selbst zu notieren???

Also, der Methode data() beizubringen, auf welche Datei <DATA> zu beziehen ist?

Eine Lösung wäre absolut geil ;)
http://blog.rolfrost.de/

The art of steam.
- +2 replies
- pq
  
  2012-04-06 14:06
  User since
  2003-08-04
  12209 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  no strict 'refs'; my $ref = ref $self; my $fh = *{ $ref . "::DATA" };
  
  Editiert von pq: no strict
  Last edited: 2012-04-06 14:10:06 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - rosti
    
    2012-04-06 14:16
    User since
    2011-03-19
    3561 Artikel
    BenutzerIn
    
    Das funktioniert einwandfrei, Wahnsinn, Danke!!!!
    
    Code (perl): (dl )
    
    no strict 'refs';
    
    Schönes Osterwochenende!!!
    Rolf
    
    PS: In den letzten Tagen habe ich neue Ideen für ein Framework als Perl-Code geschrieben. Das FW zeichnet sich dadurch aus, dass es auch als pures Perl-CGI äußerst performant laufen kann, wobei das Laden der Code-Sourcen und das Kompilieren auf ein absolutes Minimum beschränkt wird.
    
    Ermöglicht wird es dadurch, dass jedem zu erwartenden REQUEST_URI eine Klasse zugeordnet wird, die genau zwei Methoden enthält: browse() und control(), je nachdem, ob Parameter (GET||POST) vorhanden sind oder nicht, wird entweder control() oder browse() aufgerufen. Anstatt also eine Klasse mit sehr vielen Methoden einzubinden, wird nur eine Klasse mit genau zwei Methoden geladen und weitere, dazu benötigte Module/Klassen somit nur auf Anforderung. Hinzu kommen lediglich eine Handvoll Methoden der Basisklasse zum Erstellen einer Response.
    
    Zum Entwickeln habe ich dazu die Templates unterhalb __DATA__ der jeweiligen Klassendatei liegen, die Umstellung auf einen anderen Speicherort für die Templates betrifft nur eine Methode data(), danke pq!!!!.
    
    Das FW ermöglicht Exceptions in browse() oder control() und es kann jeden beliebigen Content-Type ausgeben, xml, json, text, html, jpg, pdf....
    
    Das Laden der Konfiguration aus einer externen Quelle macht das FW multi-domain-fähig, vorausgesetzt, dass die Domänen auf dem gleichen Server laufen. Des Weiteren ist ein Berechtigungssystem für Multi-User-Betrieb (Content Management) eingebaut.
    
    Das eigentliche FW ist die Idee! Bei Interesse schreibe ich gerne mehr dazu.
    Last edited: 2012-04-06 18:15:15 +0200 (CEST)
    http://blog.rolfrost.de/
    
    The art of steam.

View all threads created 2012-04-06 12:20.