use strict; use warnings; package Jifty::Plugin::TestServerWarnings::View; use Jifty::View::Declare -base; =head1 NAME Jifty::Plugin::TestServerWarnings::View - Test warnings downloader =head1 TEMPLATES =head2 C<__jifty/test_warnings> Outputs L to the client. =cut template "/__jifty/test_warnings" => sub { my $plugin = Jifty->find_plugin('Jifty::Plugin::TestServerWarnings'); Jifty->handler->apache->content_type("application/x-perl"); outs_raw($plugin->encoded_warnings); }; 1;