1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
|
package Apache::JSONRPC;
use strict;
use JSONRPC::Transport::HTTP;
use base qw(JSONRPC::Transport::HTTP::Apache);
use vars qw($VERSION);
$VERSION = 1.00;
my $server = __PACKAGE__->new;
sub handler {
$server->configure(@_);
$server->handle(@_);
}
1;
__END__
=head1 NAME
Apache::JSONRPC - mod_perl-based JSON-RPC server
=head1 SYNOPSIS
httpd.conf or htaccess
SetHandler perl-script
PerlHandler Apache::JSONRPC
PerlModule MyApp::Test
PerlSetVar dispatch_to "MyApp::Test, MyApp::Test2"
# URL path base
# PerlSetVar dispatch_to "MyApp/Test, MyApp/Test2"
PerlSendHeader On
=head1 DESCRIPTION
This module inherites JSONRPC::Transport::HTTP and
provides JSON-RPC (L<http://json-rpc.org/>) server.
The ideas was borrowed from L<SOAP::Lite>, L<Apache::SOAP>.
Currently the modlue(JSONRPC::Transport::HTTP::Apache) does not support Apache2.
=head1 TODO
Apache2 support.
=head1 SEE ALSO
L<SOAP::Lite>,
L<Apache::SOAP>,
L<JSONRPC::Transport::HTTP>,
L<http://json-rpc.org/>,
=head1 AUTHOR
Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2005 by Makamaka Hannyaharamitu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|