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   push   (@INC, $FindBin::Bin . '/modules/fallback'); # Only use our own versions of modules if there's no system version.
  11 }
  12
  13 use SL::Dispatcher;
  14
  15 our $dispatcher = SL::Dispatcher->new('CGI');
  16 $dispatcher->pre_startup;
  17 $dispatcher->handle_request;
  18
  19 1;