testapp/script/testapp_stomp.pl

   1 BEGIN {
   2         $ENV{CATALYST_ENGINE} = 'Stomp';
   3         require Catalyst::Engine::Stomp;
   4 }
   5
   6 use strict;
   7 use warnings;
   8 use Getopt::Long;
   9 use Pod::Usage;
  10 use FindBin;
  11 use lib "$FindBin::Bin/../lib";
  12
  13 my $debug   = 0;
  14 my $help    = 0;
  15 my $oneshot = 0;
  16
  17 my @argv = @ARGV;
  18
  19 GetOptions(
  20     'debug|d' => \$debug,
  21     'help|?'  => \$help,
  22     'oneshot' => \$oneshot,
  23 );
  24
  25 pod2usage(1) if $help;
  26
  27 if ( $debug ) {
  28         $ENV{CATALYST_DEBUG} = 1;
  29 }
  30
  31 if ( $oneshot ) {
  32         $ENV{ENGINE_ONESHOT} = 1;
  33 }
  34
  35 # This is require instead of use so that the above environment
  36 # variables can be set at runtime.
  37 require TestApp;
  38 TestApp->run();
  39
  40 1;
  41
  42 =head1 NAME
  43
  44 testapp_stomp.pl - Catalyst STOMP client
  45
  46 =head1 SYNOPSIS
  47
  48 testapp_stomp.pl [options]
  49
  50  Options:
  51    -d -debug          force debug mode
  52    -? -help           display this help and exits
  53
  54  See also:
  55    perldoc Catalyst::Engine::Stomp
  56    perldoc Catalyst::Manual
  57    perldoc Catalyst::Manual::Intro
  58
  59 =head1 DESCRIPTION
  60
  61 Run a Catalyst STOMP client for this application.
  62
  63 =cut