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

# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>

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

my $foo = 'bar';
sub new {
    my $self = shift;
    $self = $self->next::method(@_);
    $foo = $self->context->config->{foo};
    return $self;
}

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

sub foo {
    return $foo;
}

1;
Commit	Line	Data
75f37967	1	# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
	2
	3	package TestApp::Model::Test;
	4	use strict;
	5	use warnings;
	6	use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);
	7
	8	my $foo = 'bar';
	9	sub new {
	10	my $self = shift;
c9c41e4d	11	$self = $self->next::method(@_);
75f37967	12	$foo = $self->context->config->{foo};
	13	return $self;
	14	}
	15
	16	sub message {
	17	my $self = shift;
	18	return $self->context->stash->{message};
	19	}
	20
	21	sub foo {
	22	return $foo;
	23	}
	24
	25	1;
	26