Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

MINIMAL / Kelp-0.9015 / t / lib / MyApp / Response.pm 

            

              
1
2
3
4
5
6
7
8
9
10

              
package MyApp::Response;
use Kelp::Base 'Kelp::Response';
sub render_404 {
    my $self = shift;
    $self->set_code(404)->text->render("NO");
}
1;