0.01 Fri May 15 21:39:30 2009
Initial CPAN Release
+
+0.02 Sun May 17 00:00:00 2009
+ Rename TestApp
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
use inc::Module::Install;
use 5.008006;
+license 'perl';
+
name 'Catalyst-Engine-Stomp';
all_from 'lib/Catalyst/Engine/Stomp.pm';
requires 'YAML::XS' => '0.32';
requires 'namespace::autoclean' => '0.05';
+no_index package => 'StompTestApp';
+
auto_install;
WriteAll;
use Moose;
extends 'Catalyst::Engine::Embeddable';
-our $VERSION = '0.01';
+our $VERSION = '0.02';
use List::MoreUtils qw/ uniq /;
use HTTP::Request;
# 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...";
-package TestApp;
+package StompTestApp;
use Moose;
use Catalyst::Runtime '5.80002';
our $VERSION = '0.01';
-__PACKAGE__->config( name => 'TestApp' );
+__PACKAGE__->config( name => 'StompTestApp' );
__PACKAGE__->setup();
__PACKAGE__->meta->make_immutable;
-package TestApp::Controller::TestController;
+package StompTestApp::Controller::TestController;
use Moose;
BEGIN { extends 'Catalyst::Controller::MessageDriven' };
---
-name: TestApp
+name: StompTestApp
'Engine::Stomp':
hostname: localhost
port: 61613
# 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;
my $self = shift;
for my $i (1..4) {
$self->spawn( sub {
- require TestApp;
- TestApp->run();
+ require StompTestApp;
+ StompTestApp->run();
} );
}
POE::Kernel->run();
my $self = shift;
warn "restarting";
$self->spawn( sub {
- require TestApp;
- TestApp->run();
+ require StompTestApp;
+ StompTestApp->run();
} );
}
sub worker_started { shift; warn join ' ', @_; }