
Net::SPOCP - Perl implementation of the SPOCP protocol

use Net::SPOCP;
my $client = Net::SPOCP::Protocol->new(server=>'host:port');
my $res = $client->query([a => [ ru => 'le' ],[ another => 'rule']);
print "%s\n",$res->is_error ? "denied (".$res->error.")" : 'authorized';

Implements the protocol described at http://www.spocp.org.

Leif Johansson <leifj@it.su.se> Klas Lindfors <kllin@it.su.se>

Only query is implemented currently
