Attempt to please PAUSE by renaming our test app, and marking its package no_index
Chris Andrews [Sat, 16 May 2009 23:10:47 +0000 (00:10 +0100)]
Changes
MANIFEST
Makefile.PL
lib/Catalyst/Engine/Stomp.pm
t/Catalyst-Engine-Stomp.t
testapp/lib/StompTestApp.pm [moved from testapp/lib/TestApp.pm with 75% similarity]
testapp/lib/StompTestApp/Controller/TestController.pm [moved from testapp/lib/TestApp/Controller/TestController.pm with 84% similarity]
testapp/lib/StompTestApp/stomptestapp.yml [moved from testapp/lib/TestApp/testapp.yml with 75% similarity]
testapp/script/stomptestapp_stomp.pl [moved from testapp/script/testapp_stomp.pl with 95% similarity]
testapp/script/stomptestapp_stomp_workers.pl [moved from testapp/script/testapp_stomp_workers.pl with 88% similarity]

diff --git a/Changes b/Changes
index 79e137e..75dbcad 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,3 +2,6 @@ Revision history for Perl extension Catalyst::Engine::Stomp.
 
 0.01  Fri May 15 21:39:30 2009
        Initial CPAN Release
+
+0.02  Sun May 17 00:00:00 2009
+       Rename TestApp 
index b959a2c..5551ea2 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -18,8 +18,8 @@ META.yml
 README
 t/00_use.t
 t/Catalyst-Engine-Stomp.t
-testapp/lib/TestApp.pm
-testapp/lib/TestApp/Controller/TestController.pm
-testapp/lib/TestApp/testapp.yml
-testapp/script/testapp_stomp.pl
-testapp/script/testapp_stomp_workers.pl
+testapp/lib/StompTestApp.pm
+testapp/lib/StompTestApp/Controller/TestController.pm
+testapp/lib/StompTestApp/stomptestapp.yml
+testapp/script/stomptestapp_stomp.pl
+testapp/script/stomptestapp_stomp_workers.pl
index afded87..960b40f 100644 (file)
@@ -1,6 +1,8 @@
 use inc::Module::Install;
 use 5.008006;
   
+license  'perl';
+
 name     'Catalyst-Engine-Stomp';
 all_from 'lib/Catalyst/Engine/Stomp.pm';
   
@@ -13,6 +15,8 @@ requires 'Net::Stomp' => '0.34';
 requires 'YAML::XS' => '0.32';
 requires 'namespace::autoclean' => '0.05';
 
+no_index package => 'StompTestApp';
+
 auto_install;
 WriteAll;
 
index 4391d9a..bddc518 100644 (file)
@@ -2,7 +2,7 @@ package Catalyst::Engine::Stomp;
 use Moose;
 extends 'Catalyst::Engine::Embeddable';
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use List::MoreUtils qw/ uniq /;
 use HTTP::Request;
index 0739f29..58c1e77 100644 (file)
@@ -23,7 +23,7 @@ else {
 # First fire off the server
 $SIG{CHLD} = 'IGNORE';
 unless (fork()) {
-       system("CATALYST_DEBUG=0 $^X -Ilib -Itestapp/lib testapp/script/testapp_stomp.pl --oneshot");
+       system("CATALYST_DEBUG=0 $^X -Ilib -Itestapp/lib testapp/script/stomptestapp_stomp.pl --oneshot");
        exit 0;
 }
 print STDERR "server started, waiting for spinup...";
similarity index 75%
rename from testapp/lib/TestApp.pm
rename to testapp/lib/StompTestApp.pm
index c28f6ac..f25be17 100644 (file)
@@ -1,4 +1,4 @@
-package TestApp;
+package StompTestApp;
 use Moose;
 use Catalyst::Runtime '5.80002';
 
@@ -10,7 +10,7 @@ extends 'Catalyst';
 
 our $VERSION = '0.01';
 
-__PACKAGE__->config( name => 'TestApp' );
+__PACKAGE__->config( name => 'StompTestApp' );
 __PACKAGE__->setup();
 __PACKAGE__->meta->make_immutable;
 
@@ -1,4 +1,4 @@
-package TestApp::Controller::TestController;
+package StompTestApp::Controller::TestController;
 use Moose;
 
 BEGIN { extends 'Catalyst::Controller::MessageDriven' };
similarity index 75%
rename from testapp/lib/TestApp/testapp.yml
rename to testapp/lib/StompTestApp/stomptestapp.yml
index 775c112..d7e02d4 100644 (file)
@@ -1,5 +1,5 @@
 ---
-name: TestApp
+name: StompTestApp
 'Engine::Stomp':
   hostname: localhost
   port: 61613
similarity index 95%
rename from testapp/script/testapp_stomp.pl
rename to testapp/script/stomptestapp_stomp.pl
index e061718..b60cd43 100755 (executable)
@@ -34,8 +34,8 @@ if ( $oneshot ) {
 
 # This is require instead of use so that the above environment
 # variables can be set at runtime.
-require TestApp;
-TestApp->run();
+require StompTestApp;
+StompTestApp->run();
 
 1;
 
similarity index 88%
rename from testapp/script/testapp_stomp_workers.pl
rename to testapp/script/stomptestapp_stomp_workers.pl
index 960c7bd..2120365 100644 (file)
@@ -14,8 +14,8 @@ sub run {
        my $self = shift;
        for my $i (1..4) {
                $self->spawn( sub { 
-                                     require TestApp;
-                                     TestApp->run();
+                                     require StompTestApp;
+                                     StompTestApp->run();
                              } );
        }
         POE::Kernel->run();
@@ -33,8 +33,8 @@ sub worker_done    {
        my $self = shift;
        warn "restarting";
        $self->spawn( sub { 
-                             require TestApp;
-                             TestApp->run();
+                             require StompTestApp;
+                             StompTestApp->run();
                      } );
 }
 sub worker_started { shift; warn join ' ', @_; }