dispatcher.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN {
   6   use FindBin;
   7
   8   unshift(@INC, $FindBin::Bin . '/modules/override'); # Use our own versions of various modules (e.g. YAML).
   9   push   (@INC, $FindBin::Bin);                       # '.' will be removed from @INC soon.
  10 }
  11
  12 use SL::Dispatcher;
  13
  14 our $dispatcher = SL::Dispatcher->new('CGI');
  15 $dispatcher->pre_startup;
  16 $dispatcher->handle_request;
  17
  18 1;