From: Tomas Doran Date: Wed, 13 May 2009 20:25:56 +0000 (+0000) Subject: Checking in changes prior to tagging of version 0.11. Changelog diff is: X-Git-Tag: v0.11^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=commitdiff_plain;h=602b9593e1528d5d1085e3414400e6bc6458c1f6 Checking in changes prior to tagging of version 0.11. Changelog diff is: Index: Changes =================================================================== --- Changes (revision 10057) +++ Changes (working copy) @@ -1,5 +1,9 @@ Revision history for Perl extension Catalyst::Plugin::Session::State::Cookie +0.11 2009-05-13 + - Change TestApp so that the application is in t/lib, to make it easier + for Catalyst to force our package to be immutable. + 0.10 2009-02-08 - POD addition. - Switch from NEXT to MRO::Compat --- diff --git a/.shipit b/.shipit new file mode 100644 index 0000000..6a729c2 --- /dev/null +++ b/.shipit @@ -0,0 +1,5 @@ +# auto-generated shipit config file. +steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN + +svn.tagpattern = http://dev.catalyst.perl.org/repos/Catalyst/tags/Catalyst-Plugin-Session-State-Cookie/%v +CheckChangeLog.files = Changes diff --git a/Changes b/Changes index 234514c..c3dd77b 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension Catalyst::Plugin::Session::State::Cookie +0.11 2009-05-13 + - Change TestApp so that the application is in t/lib, to make it easier + for Catalyst to force our package to be immutable. + 0.10 2009-02-08 - POD addition. - Switch from NEXT to MRO::Compat diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP index 8993595..7639553 100644 --- a/MANIFEST.SKIP +++ b/MANIFEST.SKIP @@ -32,3 +32,6 @@ # No tarballs! \.gz$ + +\.shipit$ + diff --git a/lib/Catalyst/Plugin/Session/State/Cookie.pm b/lib/Catalyst/Plugin/Session/State/Cookie.pm index bec0b01..536f82f 100644 --- a/lib/Catalyst/Plugin/Session/State/Cookie.pm +++ b/lib/Catalyst/Plugin/Session/State/Cookie.pm @@ -7,7 +7,7 @@ use warnings; use MRO::Compat; use Catalyst::Utils (); -our $VERSION = "0.10"; +our $VERSION = "0.11"; BEGIN { __PACKAGE__->mk_accessors(qw/_deleted_session_id/) } diff --git a/t/lib/CookieTestApp.pm b/t/lib/CookieTestApp.pm new file mode 100644 index 0000000..62da412 --- /dev/null +++ b/t/lib/CookieTestApp.pm @@ -0,0 +1,32 @@ +package # Hide from PAUSE + CookieTestApp; +use Catalyst qw/ + Session + Session::Store::Dummy + Session::State::Cookie + /; + +sub page : Local { + my ( $self, $c ) = @_; + $c->res->body( "Hi! hit number " . ++$c->session->{counter} ); +} + +sub stream : Local { + my ( $self, $c ) = @_; + my $count = ++$c->session->{counter}; + $c->res->write("hit number "); + $c->res->write($count); +} + +sub deleteme : Local { + my ( $self, $c ) = @_; + my $id = $c->get_session_id; + $c->delete_session; + my $id2 = $c->get_session_id; + $c->res->body( $id ne ( $id2 || '' ) ); +} + +__PACKAGE__->setup; + +1; + diff --git a/t/live_app.t b/t/live_app.t index 633a36f..0cdb75e 100644 --- a/t/live_app.t +++ b/t/live_app.t @@ -3,6 +3,9 @@ use strict; use warnings; +use FindBin qw/$Bin/; +use lib "$Bin/lib"; + use Test::More; BEGIN { @@ -14,38 +17,6 @@ BEGIN { plan 'no_plan'; } -{ - - package CookieTestApp; - use Catalyst qw/ - Session - Session::Store::Dummy - Session::State::Cookie - /; - - sub page : Local { - my ( $self, $c ) = @_; - $c->res->body( "Hi! hit number " . ++$c->session->{counter} ); - } - - sub stream : Local { - my ( $self, $c ) = @_; - my $count = ++$c->session->{counter}; - $c->res->write("hit number "); - $c->res->write($count); - } - - sub deleteme : Local { - my ( $self, $c ) = @_; - my $id = $c->get_session_id; - $c->delete_session; - my $id2 = $c->get_session_id; - $c->res->body( $id ne ( $id2 || '' ) ); - } - - __PACKAGE__->setup; -} - use Test::WWW::Mechanize::Catalyst qw/CookieTestApp/; my $m = Test::WWW::Mechanize::Catalyst->new;