#!/usr/bin/perl
# Warnings.pm
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
package TestApp::Controller::Warnings;
use base qw(Catalyst::Controller);
use strict;
sub index : Private {
my ($self, $c, @args) = @_;
$c->response->{body} = 'Hello, warnings!';
};
sub do_warn : Local {
my ($self, $c, @args) = @_;
warn 'Let this be a warning to you';
$c->response->{body} = 'Hello, warnings!';
};
1;