sub finalize_headers {
my $c = shift;
- $c->finalize_session;
+ # fix cookie before we send headers
+ $c->_save_session_expires;
return $c->NEXT::finalize_headers(@_);
}
+sub finalize {
+ my $c = shift;
+ my $ret = $c->NEXT::finalize(@_);
+
+ # then finish the rest
+ $c->finalize_session;
+ return $ret;
+}
+
sub finalize_session {
my $c = shift;
$c->_save_session_id;
$c->_save_session;
$c->_save_flash;
- $c->_save_session_expires;
$c->_clear_session_instance_data;
}
=item finalize_headers
-This method is extended and will extend the expiry time, as well as persist the
-session data if a session exists.
+This method is extended and will extend the expiry time before sending
+the response.
+
+=item finalize
+
+This method is extended and will call finalize_session after the other
+finalizes run. Here we persist the session data if a session exists.
=item initialize_session_data
See L<Catalyst/dump_these> - ammends the session data structure to the list of
dumped objects if session ID is defined.
+
+=item calculate_extended_session_expires
+
+=item calculate_initial_session_expires
+
+=item create_session_id_if_needed
+
+=item delete_session_id
+
+=item extend_session_expires
+
+=item extend_session_id
+
+=item get_session_id
+
+=item reset_session_expires
+
+=item session_is_valid
+
+=item set_session_id
+
=back
=head1 USING SESSIONS DURING PREPARE
$c->flash->{foo} = "moose";
-$c->finalize_headers;
+$c->finalize;
is_deeply( $c->flash, { foo => "moose" }, "one key in flash" );
is_deeply( $c->flash, { foo => "moose", bar => "gorch" }, "two keys in flash" );
-$c->finalize_headers;
+$c->finalize;
is_deeply( $c->flash, { bar => "gorch" }, "one key in flash" );
-$c->finalize_headers;
+$c->finalize;
$c->flash->{test} = 'clear_flash';
-$c->finalize_headers;
+$c->finalize;
$c->clear_flash();
is_deeply( $c->flash, {}, "nothing in flash after clear_flash" );
-$c->finalize_headers;
+$c->finalize;
is_deeply( $c->flash, {}, "nothing in flash after finalize after clear_flash" );
$c->config->{session}{flash_to_stash} = 1;
-$c->finalize_headers;
+$c->finalize;
$c->prepare_action;
is_deeply( $c->stash, { bar => "gorch" }, "flash copied to stash" );
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+ if ( eval { require Catalyst::Plugin::Session::State::Cookie } ) {
+ plan tests => 3;
+ } else {
+ plan skip_all => "Catalyst::Plugin::Session::State::Cookie required";
+ }
+}
+
+my $finalized = 0;
+
+{
+ package TestPlugin;
+ BEGIN { $INC{"TestPlugin.pm"} = 1 } # nasty hack for 5.8.6
+
+ sub finalize_session { $finalized = 1 }
+
+ sub finalize { die "already finalized_session()" if $finalized }
+
+ # Structure inheritance so TestPlugin->finalize() is called *after*
+ # Catalyst::Plugin::Session->finalize()
+ package TestApp;
+
+ use Catalyst qw/
+ Session Session::Store::Dummy Session::State::Cookie +TestPlugin
+ /;
+ __PACKAGE__->setup;
+}
+
+BEGIN { use_ok('Catalyst::Plugin::Session') }
+
+my $c = TestApp->new;
+eval { $c->finalize };
+ok(!$@, "finalize_session() called after all other finalize() methods");
+ok($finalized, "finalize_session() called");