PAUSE hates me, didn't notice in the dev release as they aren't indexed. These packag...

diff --git a/Changes b/Changes
index 2720c0c..ba87695 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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

diff --git a/lib/Catalyst/Plugin/Session/Test/Store.pm b/lib/Catalyst/Plugin/Session/Test/Store.pm
index 830df41..db75e23 100644 (file)
--- a/lib/Catalyst/Plugin/Session/Test/Store.pm
+++ b/lib/Catalyst/Plugin/Session/Test/Store.pm
@@ -28,7 +28,8 @@ sub import {
     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 @@ sub import {
 
     {
 
-        package SessionStoreTest;
+        package # Hide from PAUSE
+            SessionStoreTest;
         use Catalyst qw/Session SessionStateTest/;
         push our (@ISA), $m;
 
@@ -95,7 +97,8 @@ sub import {
 
     {
 
-        package SessionStoreTest2;
+        package # Hide from PAUSE
+            SessionStoreTest2;
         use Catalyst qw/Session SessionStateTest/;
         push our (@ISA), $m;
 
@@ -139,7 +142,8 @@ sub import {
 
     {
 
-        package t1;
+        package # Hide from PAUSE
+            t1;
         use Catalyst::Test "SessionStoreTest";
 
         # idiotic void context warning workaround
@@ -151,7 +155,8 @@ sub import {
 
     {
 
-        package t2;
+        package # Hide fram PAUSE
+            t2;
         use Catalyst::Test "SessionStoreTest2";
 
         my $x = get("/create_session");