view release on metacpan or search on metacpan
t/live_component_controller_action_streaming.t view on Meta::CPAN
{
if ( $ENV{CATALYST_SERVER} ) {
skip "Using remote server", 1;
}
# XXX: Length should be undef here, but HTTP::Request::AsCGI sets it
is( $response->content_length, 12, 'Response Content-Length' );
}
is( $response->content,, <<'EOF', 'Content is a stream' );
foo
view release on metacpan or search on metacpan
lib/Catalyst/Engine/Server/Base.pm view on Meta::CPAN
use strict;
use base 'Class::Accessor::Fast';
use HTTP::Parser;
use HTTP::Request;
use HTTP::Response;
__PACKAGE__->mk_accessors('application');
sub configure_hook {
view release on metacpan or search on metacpan
lib/Catalyst/Engine/Stomp.pm view on Meta::CPAN
package Catalyst::Engine::Stomp;
use Moose;
use List::MoreUtils qw/ uniq /;
use HTTP::Request;
use Net::Stomp;
use MooseX::Types::Moose qw/Str Int HashRef/;
use namespace::autoclean;
use Encode;
lib/Catalyst/Engine/Stomp.pm view on Meta::CPAN
# set up request
my $config = $app->config->{'Engine::Stomp'};
my $url = 'stomp://'.$config->{hostname}.':'.$config->{port}.'/'.$controller;
my $request_headers = HTTP::Headers->new(%{$frame->headers});
my $req = HTTP::Request->new(POST => $url, $request_headers);
$req->content($frame->body);
$req->content_length(length $frame->body);
# dispatch
my $response;
view release on metacpan or search on metacpan
lib/Catalyst/Engine/XMPP2.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.4';
use base qw(Catalyst::Engine::Embeddable);
use Event qw(loop);
use Encode;
use HTTP::Request;
use AnyEvent::XMPP::Connection;
use UNIVERSAL qw(isa);
__PACKAGE__->mk_accessors(qw( connections ));
lib/Catalyst/Engine/XMPP2.pm view on Meta::CPAN
$node->attr('type') eq 'error';
my $config = $app->config->{'Engine::XMPP2'};
my $url = 'xmpp://'.$config->{username}.'@'.$config->{domain}.'/'.$resource;
my $request = HTTP::Request->new(POST => $url);
$request->header('Content-type' => 'application/xml; charset=utf-8');
$request->header('XMPP_Stanza' => $type);
$request->header('XMPP_Resource' => $resource);
lib/Catalyst/Engine/XMPP2.pm view on Meta::CPAN
=back
=head1 SEE ALSO
L<Catalyst::Engine>, L<Catalyst::Engine::CGI>, L<HTTP::Request>,
L<HTTP::Reponse>, L<Catalyst>, L<AnyEvent::XMPP::Connection>,
L<Catalyst::Engine::Embeddable>
=head1 AUTHORS
view release on metacpan or search on metacpan
"DBIx::Class::ResultSet" : "0",
"DBIx::Class::Schema" : "0",
"File::Copy::Recursive" : "0",
"File::Path" : "0",
"File::Spec" : "0",
"HTTP::Request::Common" : "0",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"JSON::XS" : "0",
"Test::Deep" : "0",
"Test::More" : "0",
view release on metacpan or search on metacpan
lib/Catalyst/Manual/Cookbook.pod view on Meta::CPAN
=item An instance of L<URI>.
request( URI->new('http://www.host.com/my/path') );
=item An instance of L<HTTP::Request>.
request( HTTP::Request->new( GET => 'http://www.host.com/my/path') );
=back
C<request> returns an instance of L<HTTP::Response> and C<get> returns the
content (body) of the response.
lib/Catalyst/Manual/Cookbook.pod view on Meta::CPAN
=item * L<HTML::Form>
=item * L<HTTP::Message>
=item * L<HTTP::Request>
=item * L<HTTP::Request::Common>
=item * L<HTTP::Response>
=item * L<HTTP::Status>
view release on metacpan or search on metacpan
author:
- 'John Napiorkowski <jjnapiork@cpan.org>'
build_requires:
Catalyst: '5.90060'
Data::MuForm: '0'
HTTP::Request::Common: '0'
Moo: '2.003000'
Test::Most: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Catalyst::Test" : "0",
"HTML::FormHandler" : "0",
"HTTP::Request::Common" : "0",
"Scalar::Util" : "0",
"Test::Most" : "0.34"
}
}
},
view release on metacpan or search on metacpan
inc/Catalyst/Test.pm view on Meta::CPAN
#line 224
sub local_request {
my $class = shift;
require HTTP::Request::AsCGI;
my $request = Catalyst::Utils::request( shift(@_) );
_customize_request($request, @_);
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request( env => \%ENV );
my $response = $cgi->restore->response;
$response->request( $request );
view release on metacpan or search on metacpan
t/01-swish.t view on Meta::CPAN
use warnings;
use lib 't/MySWISH/lib';
use Test::More tests => 3;
use Data::Dump qw( dump );
use HTTP::Request::Common;
use File::Spec;
SKIP: {
eval { require SWISH::API::Object; };
view release on metacpan or search on metacpan
SKIP: {
skip "Environment variable ES_HOME not set", 16
unless defined $ENV{ES_HOME};
use Test::Exception;
use HTTP::Request::Common;
use Test::Requires {
'Search::Elasticsearch::TestServer' => 1.10,
'Search::Elasticsearch::Transport' => 1.10
};
view release on metacpan or search on metacpan
t/01-client.t view on Meta::CPAN
is $res->code, 201;
my $entry2 = XML::Atom::Entry->new( \$res->content );
isa_ok $entry2, 'XML::Atom::Entry';
is $entry2->title, 'Bar';
sub req_get { HTTP::Request->new( GET => '/' ) }
sub req_post {
my $req = HTTP::Request->new( POST => '/' );
$req->content_type('application/x.atom+xml');
my $xml = $_[0];
$req->content_length(length $xml);
$req->content($xml);
$req;
view release on metacpan or search on metacpan
}
sub cookies {
my $res = shift;
my $request = HTTP::Request->new( GET => 'http://localhost/' );
$res->request($request);
my $jar = HTTP::Cookies->new();
$jar->extract_cookies($res);
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Authentication/Basic/Remote.pm view on Meta::CPAN
$c->log->debug("Authentication via ". $c->config->{authentication}->{auth_url} );
$c->log->debug("user: $username");
$c->log->debug("pass: $password");
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( HEAD => $c->config->{authentication}->{auth_url} );
$req->header( 'Authorization' => $c->req->header('Authorization') );
my $res = $ua->request($req);
if ( $res->code ne '401' ) {
view release on metacpan or search on metacpan
t/live_app.t view on Meta::CPAN
or plan skip_all =>
"Test::WWW::Mechanize::Catalyst is needed for this test";
plan tests => 5;
use_ok 'AuthTestApp' or die;
}
use HTTP::Request;
use Test::WWW::Mechanize::Catalyst qw/AuthTestApp/;
my $mech = Test::WWW::Mechanize::Catalyst->new;
$mech->get("http://localhost/moose");
is( $mech->status, 401, "status is 401" );
$mech->content_lacks( "foo", "no output" );
my $r = HTTP::Request->new( GET => "http://localhost/moose" );
$r->authorization_basic(qw/foo s3cr3t/);
$mech->request($r);
is( $mech->status, 200, "status is 200" );
$mech->content_contains( "foo", "foo output" );
view release on metacpan or search on metacpan
lib/Catalyst/Plugin/Authentication/Store/HTTP/User.pm view on Meta::CPAN
my ($self, $password) = @_;
my $ua =
Catalyst::Plugin::Authentication::Store::HTTP::UserAgent->new(
keep_alive => ($self->{keep_alive} ? 1 : 0));
my $req = HTTP::Request->new(HEAD => $self->{auth_url});
# set the credentials for the request.
# if there is a domain set then prepend this onto the user id
$ua->credentials(
($self->{domain} ? join("\\", $self->{domain}, $self->id) : $self->id),
view release on metacpan or search on metacpan
t/live_app_session.t view on Meta::CPAN
}
use lib 't/lib';
use Catalyst::Test qw/AuthSessionTestApp/;
use HTTP::Cookies;
use HTTP::Request::Common qw(GET);
my $jar = HTTP::Cookies->new;
sub _request {
my $url = shift;
$url =~ s{^/}{http://localhost/};
view release on metacpan or search on metacpan
"DBIx::Class::DateTime::Epoch" : "0",
"DBIx::Class::EncodedColumn" : "0",
"DBIx::Class::Schema" : "0",
"FindBin" : "0",
"HTML::FormFu" : "0",
"HTTP::Request::Common" : "0",
"Hash::Merge" : "0",
"Module::Install::Catalyst" : "0",
"Moose" : "0",
"MooseX::NonMoose" : "0",
"MooseX::Types::Path::Class" : "0",
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Catalyst::Test" : "0",
"HTTP::Request::Common" : "0",
"Test::Most" : "0"
}
}
},
"release_status" : "stable",
view release on metacpan or search on metacpan
Catalyst::Runtime: 0
DateTime::Format::HTTP: 0
Digest::MD5: 0
ExtUtils::MakeMaker: 6.59
FindBin: 0
HTTP::Request::Common: 0
Test::More: 0.88
Test::WWW::Mechanize::Catalyst: 0
URI: 0
ok: 0
configure_requires:
view release on metacpan or search on metacpan
Catalyst::Controller: '0'
Catalyst::Plugin::ConfigLoader: '0'
Catalyst::Runtime: '5.80'
Catalyst::Test: '0'
FindBin: '0'
HTTP::Request::Common: '0'
HTTP::Status: '0'
Test::More: '0'
lib: '0'
strict: '0'
warnings: '0'
view release on metacpan or search on metacpan
t/01-clamscan.t view on Meta::CPAN
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More;
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;
use Data::Dumper;
plan tests => 6;
my $no_scan;
view release on metacpan or search on metacpan
abstract: 'Compress response'
author:
- 'Yiyi Hu C<yiyihu@gmail.com>'
build_requires:
ExtUtils::MakeMaker: 6.36
HTTP::Request::Common: 0
configure_requires:
ExtUtils::MakeMaker: 6.36
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.14'
view release on metacpan or search on metacpan
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
# test first available view
{
my $expected = 'View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_firstview' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
# test view
{
my $expected = 'View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_view' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
# test skip view
{
my $expected = 'Skipped View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_skipview' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
view release on metacpan or search on metacpan
"Catalyst" : "5.90018",
"Catalyst::Controller" : "0",
"Catalyst::Test" : "0",
"File::Spec" : "0",
"HTTP::Date" : "0",
"HTTP::Request::Common" : "0",
"Module::Metadata" : "0",
"Moose" : "0",
"Plack::Middleware::MethodOverride" : "0",
"Term::Size::Any" : "0",
"Test::Log::Dispatch" : "0",
view release on metacpan or search on metacpan
- 'John Napiorkowski <jjnapiork@cpan.org>'
build_requires:
Catalyst: 0
Catalyst::Test: 0
FindBin: 0
HTTP::Request::Common: 0
Plack::App::File: 0
Plack::Middleware::Static: 0
Test::Most: 0.25
configure_requires:
ExtUtils::MakeMaker: 6.30
view release on metacpan or search on metacpan
File::Find::Rule: '0'
File::Path: '0'
File::Slurp: '0'
File::Spec::Functions: '0'
FindBin::libs: '0'
HTTP::Request::Common: '0'
IO::File: '0'
MIME::Lite: '0'
MRO::Compat: '0'
Path::Class: '0'
Sys::Hostname: '0'
view release on metacpan or search on metacpan
t/02_basic.t view on Meta::CPAN
use lib "$Bin/lib";
use Catalyst::Test 'TestApp02';
use Test::More tests => 14;
use HTTP::Request::Common;
# action driven validation
ok( my $res = request('/action1'), 'request ok' );
is( $res->content, 'NOT_BLANK', 'is NOT_BLANK error');
view release on metacpan or search on metacpan
t/04basic.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use HTTP::Request::Common;
use FindBin;
use lib "$FindBin::Bin/TestPDV/lib";
use HTTP::Request::Common;
BEGIN { use_ok 'Catalyst::Test', 'TestPDV' }
my $response = request GET "/form_test";
ok( $response->is_success, "got initial url" );
view release on metacpan or search on metacpan
Catalyst: '0'
Catalyst::Controller: '0'
Catalyst::Controller::REST: '0'
Catalyst::Test: '0'
FindBin: '0'
HTTP::Request::Common: '0'
HTTP::Status: '0'
Test::More: '0'
lib: '0'
strict: '0'
configure_requires: