view release on metacpan or  search on metacpan

lib/Apache/JemplateFilter.pm  view on Meta::CPAN

            $jemplate->_preamble
            . $jemplate->compile_template_content( $buf, $tmpl_filename );
    };
    if ($@) {
        my $msg = sprintf "%s compile error while processing %s. %s",
            __PACKAGE__,
            $r->uri,
            $@;
        $msg =~ s/\'/\\'/g;         # '
        $msg =~ s/[\x0A\x0D]/ /g;
        $js  = "throw('$msg')";
        $log->error($msg);
    }
    $r->set_content_length( length $js );
    $r->content_type('application/x-javascript');
    $r->send_http_header($r->content_type);
    $r->print($js);
    $cache->{$filename} = { js => $js, mtime => $r->mtime };
    return OK;
}

t/02-error.t  view on Meta::CPAN

use Apache::test qw(skip_test have_httpd test);
BEGIN {
  skip_test unless have_httpd;
  plan tests => 2;
}
use Apache::JemplateFilter;

my $response = Apache::test->fetch('/docs/tmpl/error.tt');

is( $response->content_type, 'application/x-javascript' );
ok( $response->content =~ /^throw\(/ );