[Catalyst-commits] r9215 - in trunk/Catalyst-Plugin-Session: . lib/Catalyst/Plugin/Session/Test

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-02-05 15:14:39 +0000 (Thu, 05 Feb 2009)
New Revision: 9215

Modified:
   trunk/Catalyst-Plugin-Session/Changes
   trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm
Log:
PAUSE hates me, didn't notice in the dev release as they aren't indexed. These packages shouldn't be PAUSE visible, so hide them.

Modified: trunk/Catalyst-Plugin-Session/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session/Changes	2009-02-05 14:48:57 UTC (rev 9214)
+++ trunk/Catalyst-Plugin-Session/Changes	2009-02-05 15:14:39 UTC (rev 9215)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session
 
+0.21 Not released
+        - Hide the internal packages in Catalyst::Plugin::Session::Test::Store from PAUSE.
+
 0.20 2009-02-05
         - No code changes since 0.19_01 dev release.
         - Add IDEAS.txt which is an irc log of discussion about the next-generation

Modified: trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm
===================================================================
--- trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm	2009-02-05 14:48:57 UTC (rev 9214)
+++ trunk/Catalyst-Plugin-Session/lib/Catalyst/Plugin/Session/Test/Store.pm	2009-02-05 15:14:39 UTC (rev 9215)
@@ -28,7 +28,8 @@
     isa_ok( bless( {}, $m ), "Catalyst::Plugin::Session::Store" );
 
     {
-        package Catalyst::Plugin::SessionStateTest;
+        package # Hide from PAUSE
+            Catalyst::Plugin::SessionStateTest;
         use base qw/Catalyst::Plugin::Session::State/;
 
         no strict 'refs';
@@ -51,7 +52,8 @@
 
     {
 
-        package SessionStoreTest;
+        package # Hide from PAUSE
+            SessionStoreTest;
         use Catalyst qw/Session SessionStateTest/;
         push our (@ISA), $m;
 
@@ -95,7 +97,8 @@
 
     {
 
-        package SessionStoreTest2;
+        package # Hide from PAUSE
+            SessionStoreTest2;
         use Catalyst qw/Session SessionStateTest/;
         push our (@ISA), $m;
 
@@ -139,7 +142,8 @@
 
     {
 
-        package t1;
+        package # Hide from PAUSE
+            t1;
         use Catalyst::Test "SessionStoreTest";
 
         # idiotic void context warning workaround
@@ -151,7 +155,8 @@
 
     {
 
-        package t2;
+        package # Hide fram PAUSE
+            t2;
         use Catalyst::Test "SessionStoreTest2";
 
         my $x = get("/create_session");