diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-07 15:48:25 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-07 15:48:25 +0000 |
commit | 1810d30231d48a745bab3931c18044bc19c85e61 (patch) | |
tree | 1bf68006c63547eefb0e17dc7bda3b51916e1407 /lib/Reaction/UI/Controller/Root.pm | |
parent | 9964b409a3ceaf45a9e07dd0f6a3d77d13ae3f1d (diff) | |
download | reaction-1810d30231d48a745bab3931c18044bc19c85e61.tar.gz reaction-1810d30231d48a745bab3931c18044bc19c85e61.zip |
squelch a warning in Reaction::Class, port from BindLex to Component::ACCEPT_CONTEXT
Diffstat (limited to 'lib/Reaction/UI/Controller/Root.pm')
-rw-r--r-- | lib/Reaction/UI/Controller/Root.pm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lib/Reaction/UI/Controller/Root.pm b/lib/Reaction/UI/Controller/Root.pm index a5a8279..75273fb 100644 --- a/lib/Reaction/UI/Controller/Root.pm +++ b/lib/Reaction/UI/Controller/Root.pm @@ -15,18 +15,20 @@ has 'window_title' => (isa => 'Str', is => 'rw'); sub begin :Private { my ($self, $ctx) = @_; - my $window :Stashed = Reaction::UI::Window->new( - ctx => $ctx, - view_name => $self->view_name, - content_type => $self->content_type, - title => $self->window_title, - ); - my $focus_stack :Stashed = $window->focus_stack; + $ctx->stash( + window => Reaction::UI::Window->new( + ctx => $ctx, + view_name => $self->view_name, + content_type => $self->content_type, + title => $self->window_title, + ) + ); + $ctx->stash(focus_stack => $ctx->stash->{window}->focus_stack); } sub end :Private { - my $window :Stashed; - $window->flush; + my ($self, $ctx) = @_; + $ctx->stash->{window}->flush; } 1; |