package ValidateApp;
use strict;
use CGI::Application;
use base qw/CGI::Application/;
use CGI::Application::Plugin::DevPopup;
use CGI::Application::Plugin::HtmlTidy;
sub setup {
my $self = shift;
$self->start_mode('valid_html');
$self->run_modes([ qw/ valid_html invalid_html / ]);
}
sub valid_html {
return 'validvalid'
}
sub invalid_html {
return qq{
h1 not allowed here, and not closed
Missing body
};
}
1;