XHTML results from the CPAN

XHTML
JQuery
view release on metacpan or search on metacpan
L<http://search.cpan.org/dist/JQuery>

=back

=head1 COPYRIGHT & LICENSE

Copyright 2007 Peter Gordon, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

package JQuery::Demo ; 

our $VERSION = '1.01';

use strict ; 
use warnings ; 

use CGI::Carp qw(fatalsToBrowser);
use base qw(CGI::Application);
use JQuery ; 

sub setup {
    my $my = shift;
    $my->run_modes([qw(start reply)]);
    my $jquery = new JQuery(jqueryDir => '/jquery_js') ; 
    $my->{jquery} = $jquery ;
}


sub cgiapp_postrun { 
    my $my = shift ; 
    my $outputRef = shift ;
#    $ENV{HTTP_X_REQUESTED_WITH} eq 'XMLHttpRequest') { 
    if (exists $my->{info}{AJAX}) {
	$$outputRef = $my->{info}{AJAX} ; 
	$my->header_props(-type=>'text/xml') ; 
	return ;
    } 
    my $jquery = $my->{jquery} ; 
    $my->{info}{JQUERY_JAVASCRIPT} = $jquery->get_jquery_code ; 
    $my->{info}{JQUERY_STYLE} = $jquery->get_css ; 
    $$outputRef = $my->show_html ; 
} 

# I have no idea why, but if this line is included, the pictures on 
# clickmenu don't work.
# <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">

sub show_html {
    my $my = shift ;
    my $JAVASCRIPT = $my->{info}{JQUERY_JAVASCRIPT} || '' ;
    my $TITLE = $my->{info}{TITLE} || '' ; 
    my $STYLE = $my->{info}{JQUERY_STYLE} || '' ;
    my $BODY = $my->{info}{BODY} || '' ; 
    my  $html = <<EOT;


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>$TITLE</title>
$JAVASCRIPT
$STYLE
</head>


<body>
$BODY
</body>
</html>

EOT
    
}
1;
( run in 1.444 second using v1.01-cache-2.11-cpan-119454b85a5 )