Dancer2-Plugin-RPC
45 results

 view release on metacpan or  search on metacpan

lib/Dancer2/RPCPlugin/DefaultRoute.pm  view on Meta::CPAN 

package Dancer2::RPCPlugin::DefaultRoute;
use strict;
use warnings;

our @EXPORT = qw(setup_default_route);
{ # use Exporter 'import'; doesn't seem to work?
    my $_caller = caller();
    no strict 'refs';
    *{"$_caller\::$_"} = __PACKAGE__->can($_) for @EXPORT;
}

use RPC::XML;
use RPC::XML::ParserFactory;

my $parser = RPC::XML::ParserFactory->new();

=head1 NAME

Dancer2::RPCPlugin::DefaultRoute - Catch bad-requests and send error-response

=head1 SYNOPSIS

    use Dancer2::RPCPlugin::DefaultRoute;
    setup_default_route();

=head1 DESCRIPTION

Implements default endpoint to generate -32601 'method not found'
or 'path not found' error_response for non existing endpoints

=head2 setup_default_route

Installs a Dancer route-handler for C<< any qr{.+} >> which tries to return an
appropriate error response to the requestor.

=head3 Responses

All responeses will have B<status: 200 OK>

The B<content-type> (and B<body>) of the request determine the error-response:

=over

=item B<text/xml>

If the B<body> is valid XMLRPC, the response is an XMLRPC-fault:

    faultCode   => -32601
    faultString => "Method '%s' not found"

If the B<body> is I<not> valid XMLRPC, the response is an XMLRPC-fault:

    faultCode   => -32600
    faultString => "Invaild xml-rpc. Not configming to spec: $@"

=item B<application/json>

If the B<body> is valid JSONRPC (ie. is has a I<'jsonrpc': '2.0'> field/value),
the response is a JSONRPC-error:

    code => -32601
    message => "Method '%s' not found"

If the B<body> is I<not> valid JSONRPC, the response is a generic json struct:

    'error': {
        'code':  -32601,
        'message': "Method '$request->path' not found"
    }

=item B<other/content-type>

Any other content-type is outside the scope of the service. We can respond in
any way we like. For the moment it will be:

    status(404)
    content_type('text/plain')
    body => "Error! '$request->path' was not found for '$request->content_type'"

=back

=cut

sub setup_default_route {
    my $caller = caller();
    my $any = $caller->can("any");

    $any->(qr{.+} => sub {
        use Dancer2;



( run in 1.549 second using v1.01-cache-2.11-cpan-524268b4103 )