Catalyst-ActionRole-JMS

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "test" : {
         "requires" : {
            "Catalyst" : "0",
            "Catalyst::Action::Deserialize::JSON" : "0",
            "Catalyst::Action::Serialize::JSON" : "0",
            "Catalyst::Runtime" : "5.90013",
            "Catalyst::ScriptRunner" : "0",
            "Catalyst::Test" : "0",
            "Data::Printer" : "0",
            "FindBin::libs" : "0",
            "HTTP::Request" : "0",
            "JSON" : "0",
            "JSON::XS" : "0",
            "Net::Stomp" : "0",
            "Test::Most" : "0",
            "bytes" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {

META.yml  view on Meta::CPAN

  - 'Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>'
build_requires:
  Catalyst: '0'
  Catalyst::Action::Deserialize::JSON: '0'
  Catalyst::Action::Serialize::JSON: '0'
  Catalyst::Runtime: '5.90013'
  Catalyst::ScriptRunner: '0'
  Catalyst::Test: '0'
  Data::Printer: '0'
  FindBin::libs: '0'
  HTTP::Request: '0'
  JSON: '0'
  JSON::XS: '0'
  Net::Stomp: '0'
  Test::Most: '0'
  bytes: '0'
configure_requires:
  ExtUtils::MakeMaker: '6.30'
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.019, CPAN::Meta::Converter version 2.140640'
license: perl

Makefile.PL  view on Meta::CPAN

  },
  "TEST_REQUIRES" => {
    "Catalyst" => 0,
    "Catalyst::Action::Deserialize::JSON" => 0,
    "Catalyst::Action::Serialize::JSON" => 0,
    "Catalyst::Runtime" => "5.90013",
    "Catalyst::ScriptRunner" => 0,
    "Catalyst::Test" => 0,
    "Data::Printer" => 0,
    "FindBin::libs" => 0,
    "HTTP::Request" => 0,
    "JSON" => 0,
    "JSON::XS" => 0,
    "Net::Stomp" => 0,
    "Test::Most" => 0,
    "bytes" => 0
  },
  "VERSION" => "1.3",
  "test" => {
    "TESTS" => "t/*.t"
  }

Makefile.PL  view on Meta::CPAN

  "Catalyst" => 0,
  "Catalyst::Action::Deserialize::JSON" => 0,
  "Catalyst::Action::REST" => 0,
  "Catalyst::Action::Serialize::JSON" => 0,
  "Catalyst::Controller" => 0,
  "Catalyst::Runtime" => "5.90013",
  "Catalyst::ScriptRunner" => 0,
  "Catalyst::Test" => 0,
  "Data::Printer" => 0,
  "FindBin::libs" => 0,
  "HTTP::Request" => 0,
  "JSON" => 0,
  "JSON::XS" => 0,
  "List::Util" => 0,
  "Moose" => 0,
  "Moose::Role" => 0,
  "Net::Stomp" => 0,
  "Test::Most" => 0,
  "bytes" => 0,
  "namespace::autoclean" => 0,
  "strict" => 0,

t/dispatch.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use Test::Most;
use FindBin::libs;
use Catalyst::Test 'TestApp';
use HTTP::Request ();
use JSON::XS;
use Data::Printer;

my $ser = JSON::XS->new->utf8;
sub jms_req {
    my ($queue,$type,$body) = @_;

    use bytes;
    my $enc_body=$ser->encode($body);

    my $r = HTTP::Request->new(
        'POST',$queue,
        [
            JMSType => $type,
            'Content-type' => 'application/json',
            'Content-length' => length($enc_body),
        ],
        $enc_body,
    );

    my ($res,$ctx) = ctx_request($r);