[catagits/Catalyst-Component-ACCEPT_CONTEXT.git] / t / lib / TestApp / View / Test.pm

# 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;
Commit	Line	Data
75f37967	1	# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
	2
	3	package TestApp::View::Test;
	4	use strict;
	5	use warnings;
	6	use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::View);
	7
	8	sub message {
	9	my $self = shift;
	10	return $self->context->stash->{message};
	11	}
	12
	13	1;
	14