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 (file)
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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
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 (file)
--- 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;