The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>

package TestApp::View::Test;
use strict;
use warnings;
use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::View);

sub message {
    my $self = shift;
    return $self->context->stash->{message};
}

1;