Perl Framework Next Generation und AJAX

Die Integration von AJAX in das Perl-Framework

Automatisch auf JS/AJAX umschalten wenn JS verfügbar ist

Mit meinem Perl-Framework gestaltet sich die Erweiterung auf AJAX recht einfach. Praktisch schaltet der Browser selbstständig um, wenn JavaScript verfügbar ist, erfolgt kein Submit sondern ein AJAX-Request. Serverseitig wird das unterschieden und dann wird entweder eine neue Seite mit veränderten Platzhaltern ausgeliefert oder es werden nur die Platzhalter ausgeliefert:

    if( $ENV{HTTP_ACCEPT} && $ENV{HTTP_ACCEPT} eq 'application/x-serialized' ){
        $self->{CONTENT} = XR::xr($out, $res);
    }
    else{
        $self->{STASH}{out} = XR::xr($out, $res);
    }

Der übrige CODE bleibt für die Anwendung dieses Konstrukts unverändert.


Anbieter: nmq​rstx-18­@yahoo.de, die Seite verwendet funktionsbedingt einen Session-Cookie und ist Bestandteil meines nach modernen Aspekten in Perl entwickelten Frameworks.