Skip to content

Instantly share code, notes, and snippets.

@broquaint
Created January 28, 2011 12:48
Show Gist options
  • Save broquaint/800213 to your computer and use it in GitHub Desktop.
Save broquaint/800213 to your computer and use it in GitHub Desktop.
The wee script I mentioned.
#!/usr/bin/env perl
use FindBin;
use local::lib "$FindBin::Bin/../local-lib";
use lib 'lib';
#use Solr::Admin::Web;
use Web::Simple 'Solr::Admin::Web';
package Solr::Admin::Web;
sub dispatch_request {
my($self) = @_;
sub (GET) {
[ 200, [ 'Content-type', 'text/plain' ], [ 'Result!' ] ]
},
}
Solr::Admin::Web->run_if_script;
# $ perl script/solradmin_server.pl /
# client test code needed at /home/dbrook/.perl-lib/Plack/Test.pm line 14
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment