The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#![%s.shebang%] -w

BEGIN {
    use FindBin;
    use lib $FindBin::Bin . '/sweet';
    use lib $FindBin::Bin . '/sweet/application';
    use lib $FindBin::Bin . '/sweet/modules';
}

use     SweetPea [%s.sver%];
require 'routes.pl' if -e 'routes.pl';

# run application

my  $s = sweet;
    $s->routes($r) if $r;
    
    exit $s->run if $s->request_method;
    
    # test from the cli
    $s->routes({
      
      # write to console  
      '/root/_shutdown'   => sub {
        shift->output('debug', 'cli');
      }
        
    })->test($ARGV[0]);