Select Code to Download

   my $client = API::Client->new({service => "dist"});
   my $data = $client->server_info({hostname => "foo.bar.com"});
   # this maps out to https://someserver.com/dist/server_info POSTing 
+{"hostname":"foo.bar.com"}

package DistService;
use API::Base;
...
    ...
    return \%data;
}

[rhandom@somehost ~/%] ds server_info hostname foo.bar.com
Arguments:
...
| ip            | 0.0.6.11            |
| server_id     | 26208               |
+---------------+---------------------+

0.0.20.86 - - [27/Sep/2013:08:12:50 -0600] "POST /dist/server_info HTT
+P/1.0" 200 292 "-" "-"
0.0.66.29 - - [27/Sep/2013:08:12:50 -0600] "POST /dist/unmanaged_add H
+TTP/1.0" 200 21 "-" "-"
...
0.0.44.15 - - [27/Sep/2013:08:12:52 -0600] "POST /dist/server_info HTT
+P/1.0" 200 294 "-" "-"
0.0.33.11 - - [27/Sep/2013:08:12:52 -0600] "POST /dist/server_info HTT
+P/1.0" 200 293 "-" "-"
0.0.15.80 - - [27/Sep/2013:08:12:52 -0600] "POST /dist/server_info HTT
+P/1.0" 200 290 "-" "-"

0.0.20.86 - - [27/Sep/2013:08:12:50 -0600] "GET /dist/server/32 HTTP/1
+.0" 200 292 "-" "-"
0.0.66.29 - - [27/Sep/2013:08:12:50 -0600] "POST /dist/unmanaged/33 HT
+TP/1.0" 200 21 "-" "-"
...
0.0.44.15 - - [27/Sep/2013:08:12:52 -0600] "GET /dist/server/34 HTTP/1
+.0" 200 294 "-" "-"
0.0.33.11 - - [27/Sep/2013:08:12:52 -0600] "GET /dist/server/38 HTTP/1
+.0" 200 293 "-" "-"
0.0.15.80 - - [27/Sep/2013:08:12:52 -0600] "GET /dist/server/33 HTTP/1
+.0" 200 290 "-" "-"