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

META.json  view on Meta::CPAN

            "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

META.json  view on Meta::CPAN

         }
      },
      "test" : {
         "requires" : {
            "Catalyst::Test" : "0",
            "HTTP::Request::Common" : "0",
            "MooseX::MethodAttributes" : "0",
            "Test::Most" : "0"
         }
      }
   },

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  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

META.yml  view on Meta::CPAN

  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

META.yml  view on Meta::CPAN

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

t/04live.t  view on Meta::CPAN

    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;
    };

t/04live.t  view on Meta::CPAN

    # 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' );

t/04live.t  view on Meta::CPAN

    # 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' );

t/04live.t  view on Meta::CPAN

    # 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

META.json  view on Meta::CPAN

            "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

META.yml  view on Meta::CPAN

  - '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

META.yml  view on Meta::CPAN

  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

META.yml  view on Meta::CPAN

  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:

 view release on metacpan or  search on metacpan

t/04live.t  view on Meta::CPAN

    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;
    };

t/04live.t  view on Meta::CPAN

sub run_tests {

    # test nameless
    {
        my $request =
          HTTP::Request->new( GET => 'http://localhost:3000/nameless' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

t/04live.t  view on Meta::CPAN

    }

    # test named
    {
        my $request =
          HTTP::Request->new( GET => 'http://localhost:3000/named' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

t/04live.t  view on Meta::CPAN

    }

    # test nameless_result
    {
        my $request =
          HTTP::Request->new(
            GET => 'http://localhost:3000/nameless_result?foo=bar' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

t/04live.t  view on Meta::CPAN

    }

    # test nameless_noresult
    {
        my $request =
          HTTP::Request->new(
            GET => 'http://localhost:3000/nameless_noresult' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

t/04live.t  view on Meta::CPAN

    }

    # test nameless_res_nores
    {
        my $request =
          HTTP::Request->new(
            GET => 'http://localhost:3000/nameless_res_nores' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Catalyst" : "0",
            "Catalyst::Controller" : "0",
            "Data::Dumper" : "0",
            "File::Spec::Functions" : "0",
            "HTTP::Headers::Util" : "0",
            "HTTP::Request::Common" : "0",
            "Scalar::Util" : "0",
            "Test::More" : "0"
         }
      }
   },

 view release on metacpan or  search on metacpan

t/lib/TestUtils.pm  view on Meta::CPAN

use strict;
use warnings;

use base qw/ Exporter /;

use HTTP::Request::Common;
use Catalyst::Test 'TestApp';
use Data::Dumper;

use Test::Most;
use Test::Deep;

 view release on metacpan or  search on metacpan

t/lib/TestUtils.pm  view on Meta::CPAN

use strict;
use warnings;

use base qw/ Exporter /;

use HTTP::Request::Common;
use Catalyst::Test 'TestApp';
use Data::Dumper;

use Test::Most;
use Test::Deep;

 view release on metacpan or  search on metacpan

t/02-live.t  view on Meta::CPAN

    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;
    };

t/02-live.t  view on Meta::CPAN

    # test maketext
    {
        my $expected = 'search';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/maketext/PATH_delocalize_recherche' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/02-live.t  view on Meta::CPAN

    # test delocalized parameter name
    {
        my $expected = 'search';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_parameter_name?recherche=foo' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/02-live.t  view on Meta::CPAN

    # test delocalized path name
    {
        my $expected = 'current_request_path/search';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_request_path/recherche' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/02-live.t  view on Meta::CPAN

    # test localized uri_for
    {
        my $expected = 'http://localhost:3000/recherche?recherche=search';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/localized_uri_for/search/search' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/02-live.t  view on Meta::CPAN

    # test localized uri_with
    {
        my $expected = 'http://localhost:3000/localized_uri_with/recherche?recherche=search';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/localized_uri_with/search' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

 view release on metacpan or  search on metacpan

t/04live.t  view on Meta::CPAN

    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;
    };

t/04live.t  view on Meta::CPAN

    # test Lexicon
    {
        my $expected = 'Bonjour';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # test .po
    {
        my $expected = 'Hallo';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );

        $request->header( 'Accept-Language' => 'de' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # test language()
    {
        my $expected = 'fr';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );

        $request->header( 'Accept-Language' => 'fr' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # test language()/language_tag()
    {
        my $expected = 'en_us';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );

        $request->header( 'Accept-Language' => 'en-us' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

        is( $response->content, $expected, 'Content OK' );
    }
    {
        my $expected = 'en-us';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_language_tag' );

        $request->header( 'Accept-Language' => 'en-us' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # test fallback (i.e. fr-ca => fr)
    {
        my $expected = 'fr';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );

        $request->header( 'Accept-Language' => 'fr-ca' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # Test languages_list
    {
        my $expected = "de=German, en_us=US English, fr=French";
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/current_languages_list' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->code, 200, 'Response Code' );

t/04live.t  view on Meta::CPAN

       
    # test fallback to i_default
    {
        my $expected = 'Hello - default';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/maketext/messages.hello' );

        $request->header( 'Accept-Language' => 'fr-ca' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

t/04live.t  view on Meta::CPAN

    # test AUTO in i_default
    {
        my $expected = 'no.key';
        my $request  =
          HTTP::Request->new( GET => 'http://localhost:3000/maketext/no.key' );

        $request->header( 'Accept-Language' => 'fr-ca' );

        ok( my $response = request($request), 'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "test" : {
         "requires" : {
            "Catalyst::Plugin::Session" : "0.40",
            "Catalyst::Plugin::Session::State::Cookie" : "0.17",
            "Catalyst::Test" : "0",
            "HTTP::Request::Common" : "0",
            "Scalar::Util" : "0",
            "Test::Most" : "0"
         }
      }
   },

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.036"
         }
      },
      "test" : {
         "requires" : {
            "HTTP::Request::Common" : "0",
            "Moose" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.98"
         }
      }

 view release on metacpan or  search on metacpan

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

    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;
    };

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

sub run_tests {

    # test echo
    {
        my $content = JSON::objToJson({ method => 'echo', params => [ 'hello' ], id => 1 });
        my $request = HTTP::Request->new( POST => $entrypoint );
        $request->header( 'Content-Length' => length($content) );
        $request->header( 'Content-Type'   => 'text/javascript+json' );
        $request->content($content);

        ok( my $response = request($request), 'Request' );

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

    }

    # test add
    {
        my $content = JSON::objToJson({ method => 'add', params => [ 1, 2 ], id => 2 });
        my $request = HTTP::Request->new( POST => $entrypoint );
        $request->header( 'Content-Length' => length($content) );
        $request->header( 'Content-Type'   => 'text/xml' );
        $request->content($content);

        ok( my $response = request($request), 'Request' );

 view release on metacpan or  search on metacpan

t/inc/local_request.pl  view on Meta::CPAN

    *Catalyst::Test::local_request = sub {
        my ( $class, $request ) = @_;
        use Data::Dumper;

        require HTTP::Request::AsCGI;
        require Catalyst::Utils;
        $request = ref($request) ? $request : Catalyst::Utils::request($request);
        my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;

        $class->handle_request;

        return $cgi->restore->response;
    };

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.036"
         }
      },
      "test" : {
         "requires" : {
            "HTTP::Request::Common" : "0",
            "JSON::MaybeXS" : "0",
            "Moose" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.98",
            "namespace::autoclean" : "0"

 view release on metacpan or  search on metacpan

t/01-request.t  view on Meta::CPAN

package main;

use Catalyst::Test 'TestApp';
use HTTP::Headers;
use HTTP::Request::Common;

my @Tests = (
    {
        class      => 'HTTP::MobileAgent::DoCoMo',
        user_agent => 'DoCoMo/2.0 N2001(c10;ser0123456789abcde;icc01234567890123456789)',

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.036"
         }
      },
      "test" : {
         "requires" : {
            "HTTP::Request::Common" : "0",
            "Moose" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.98",
            "namespace::autoclean" : "0"
         }

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.036"
         }
      },
      "test" : {
         "requires" : {
            "HTTP::Request::Common" : "0",
            "Moose" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.98",
            "namespace::autoclean" : "0"
         }

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Catalyst::Test" : "0",
            "Catalyst::View::JSON" : "0",
            "Config::General" : "0",
            "File::Spec" : "0",
            "HTTP::Cookies" : "0",
            "HTTP::Request::Common" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Mojolicious" : "8.24",
            "Test::MockModule" : "v0.177.0",
            "Test::More" : "0"

 view release on metacpan or  search on metacpan

CHANGELOG.md  view on Meta::CPAN

- Perl 5.20 or higher
- Catalyst 5.90100 or higher
- Moose and related modules
- Crypt::OpenSSL modules
- JSON::MaybeXS
- HTTP::Request and LWP stack

### Testing

All modules have unit test coverage. Run tests with: