document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/env perl
  2.  
  3. use Mojolicious::Lite;
  4. use DBI;
  5.  
  6. our $dbh = DBI->connect("dbi:mysql:dbname=mydb;host=localhost",
  7.     \'user\', \'pass\',
  8.     { PrintError => 0, RaiseError => 1 });
  9.  
  10. get \'/\' => sub { shift->render( \'title\' => \'Customer Search\' ) } => \'index\';
  11.  
  12. ...
  13.  
  14. app->secret(\'helloworld\');
  15. app->start;
  16.  
  17. END { $dbh->disconnect if $dbh }
');