3 with qw(MooseX::Workers);
6 $ENV{CATALYST_ENGINE} = 'Stomp';
7 require Catalyst::Engine::Stomp;
11 use lib "$FindBin::Bin/../lib";
24 # Implement our Interface
25 sub worker_manager_start { warn 'started worker manager' }
26 sub worker_manager_stop { warn 'stopped worker manager' }
27 sub max_workers_reached { warn 'maximum worker count reached' }
29 sub worker_stdout { shift; warn join ' ', @_; }
30 sub worker_stderr { shift; warn join ' ', @_; }
31 sub worker_error { shift; warn join ' ', @_; }
40 sub worker_started { shift; warn join ' ', @_; }
41 sub sig_child { shift; warn join ' ', @_; }
44 my $manager = Manager->new();