Catalyst-Controller-FlashRemoting

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Catalyst controller for Flash Remoting'
author:
  - 'Daisuke Murase <typester@cpan.org>'
build_requires:
  HTTP::Request: 0
  Test::More: 0
distribution_type: module
generated_by: 'Module::Install version 0.76'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Catalyst-Controller-FlashRemoting
no_index:
  directory:

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'Catalyst-Controller-FlashRemoting';
all_from 'lib/Catalyst/Controller/FlashRemoting.pm';

test_requires 'Test::More';
test_requires 'HTTP::Request';

requires 'Catalyst'  => '5.70';
requires 'Data::AMF' => '0.01001';

use_test_base;
auto_include;
WriteAll;

inc/HTTP/Request.pm  view on Meta::CPAN

#line 1
package HTTP::Request;

require HTTP::Message;
@ISA = qw(HTTP::Message);
$VERSION = "5.811";

use strict;



sub new

t/01_module.t  view on Meta::CPAN

use Test::Base;

use FindBin;
use File::Spec;
use lib File::Spec->catfile($FindBin::Bin, 'lib');

use Catalyst::Test 'TestApp';

plan tests => 6;

use HTTP::Request;

use Data::AMF::Packet;
use Data::AMF::Message;

my $amf_req = Data::AMF::Packet->new(
    version  => 0,
    headers  => [],
    messages => [
        Data::AMF::Message->new(
            version      => 0,
            target_uri   => 'echo',
            response_uri => '/1',
            value        => 'foo bar',
            length => -1,
        ),
    ],
);

my $http_req = HTTP::Request->new( POST => 'http://localhost/' );

$http_req->content( $amf_req->serialize );

$http_req->header( 'Content-Type'   => 'application/x-amf' );
$http_req->header( 'Content-Length' => length $http_req->content );


ok( my $res = request($http_req), 'request ok' );
ok( $res->is_success, 'request success' );