Catalyst::Action::JSORB - Catalyst Action for JSORB dispatchers


JSORB documentation Contained in the JSORB distribution.

Index


Code Index:

NAME

Top

Catalyst::Action::JSORB - Catalyst Action for JSORB dispatchers

SYNOPSIS

Top

  use Catalyst::Action::JSORB;

  TestApp->config(
      name => 'TestApp',
      who  => 'World',
      # add the JSORB config ...
      'Action::JSORB' => JSORB::Dispatcher::Catalyst->new(
          namespace     => JSORB::Namespace->new(
              name     => 'Test',
              elements => [
                  JSORB::Interface->new(
                      name       => 'App',
                      procedures => [
                          JSORB::Procedure->new(
                              name  => 'greeting',
                              body  => sub {
                                  my ($c) = @_;
                                  return 'Hello ' . $c->config->{'who'};
                              },
                              spec  => [ 'Catalyst' => 'Str' ],
                          ),
                      ]
                  )
              ]
          )
      )
  );

  TestApp->setup;

  sub rpc : Global : ActionClass(JSORB) {}

DESCRIPTION

Top

This is basically a Catalyst Action that can be used as a gateway to a JSORB dispatcher. It will first look for the dispatcher in the local controller config and failing that will look in the global config.

BUGS

Top

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Top

Stevan Little <stevan.little@iinteractive.com>

COPYRIGHT AND LICENSE

Top


JSORB documentation Contained in the JSORB distribution.

package Catalyst::Action::JSORB;
use Moose;

our $VERSION   = '0.04';
our $AUTHORITY = 'cpan:STEVAN';

use JSORB;
use JSON::RPC::Common::Marshal::HTTP;

extends 'Catalyst::Action';

sub execute {
    my $self = shift;
    my ($controller, $c) = @_;

    $self->NEXT::execute(@_);

    # try local, but if none exists, use global
    my $dispatcher = $controller->config->{'Action::JSORB'} || $c->config->{'Action::JSORB'};

    (blessed $dispatcher && $dispatcher->isa('JSORB::Dispatcher::Catalyst'))
        || confess "Bad dispatcher - $dispatcher (must inherit JSORB::Dispatcher::Catalyst)";

    my $marshaler = JSON::RPC::Common::Marshal::HTTP->new;
    my $call      = $marshaler->request_to_call($c->request);
    my $result    = $dispatcher->handler($call, $c);

    $marshaler->write_result_to_response($result, $c->response);
}

no Moose; 1;

__END__