X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FRoot.pm;fp=t%2Flib%2FTestApp%2FController%2FRoot.pm;h=2ca39a2a2e4b38bfa3cdb0b1fba806bceca9bf1f;hb=75f37967953d7c4558c4e4bfd6525e2afc61fd7c;hp=99b610db991a6e386e3430f7c7042858eb938a6b;hpb=6166f03d12382556473156bd939721414a11fcb2;p=catagits%2FCatalyst-Component-ACCEPT_CONTEXT.git diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm index 99b610d..2ca39a2 100644 --- a/t/lib/TestApp/Controller/Root.pm +++ b/t/lib/TestApp/Controller/Root.pm @@ -1,12 +1,58 @@ +# Copyright (c) 2007 Jonathan Rockway + package TestApp::Controller::Root; use strict; use warnings; +use base qw/Catalyst::Component::ACCEPT_CONTEXT Catalyst::Controller/; +use Devel::Cycle; + +__PACKAGE__->config(namespace => ''); + +sub model : Global { + my ($self, $c) = @_; + $c->stash->{message} = "model"; + $c->res->body($c->model('Test')->message); +} + +sub view : Global { + my ($self, $c) = @_; + $c->stash->{message} = "view"; + $c->res->body($c->view('Test')->message); +} -__PACKAGE__->config(namespace => q{}); +sub controller : Global { + my ($self, $c) = @_; + $c->res->body("controller"); +} -use base 'Catalyst::Controller'; +sub foo : Global { + my ($self, $c) = @_; + $c->res->body($c->model('Test')->foo); +} -# your actions replace this one -sub main :Path { $_[1]->res->body('

It works

') } +sub stash : Global { + my ($self, $c) = @_; + $c->model('StashMe')->test; + $c->res->body($c->stash->{stashme}->foo); +} + +sub cycle : Global { + my ($self, $c) = @_; + $c->model('StashMe')->test; + my $cycle_ok = 1; + my $got_cycle = sub { $cycle_ok = 0 }; + find_cycle($c, $got_cycle); + $c->res->body($cycle_ok); +} + +sub weak_cycle :Global { + my ($self, $c) = @_; + $c->model('StashMe')->test; + my $cycle_ok = 0; + my $got_cycle = sub { $cycle_ok = 1 }; + find_weakened_cycle($c, $got_cycle); + $c->res->body($cycle_ok); +} 1; +