Catalyst-Authentication-AuthTkt

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'shim for Apache::AuthTkt'
author:
  - 'Peter Karman, C<< <karman at cpan dot org> >>'
build_requires:
  Catalyst::Plugin::ConfigLoader: 0
  Catalyst::Plugin::Session: 0
  Catalyst::Plugin::Session::State::Cookie: 0
  Catalyst::Plugin::Session::Store::Dummy: 0
  Catalyst::Plugin::Static::Simple: 0
  ExtUtils::MakeMaker: 6.59
  HTTP::Cookies: 0
  HTTP::Request::AsCGI: 0
  Test::More: 0
configure_requires:
  ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.19'
license: perl_5
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

requires 'Catalyst::Plugin::Authentication' => 0.10007;
requires 'Data::Dump'                       => 0;
requires 'Config::General'                  => 0;
requires 'Moose'                            => 0;

test_requires 'Test::More'                               => 0;
test_requires 'Catalyst::Plugin::Static::Simple'         => 0;
test_requires 'Catalyst::Plugin::ConfigLoader'           => 0;
test_requires 'Catalyst::Plugin::Session'                => 0;
test_requires 'Catalyst::Plugin::Session::Store::Dummy'  => 0;
test_requires 'Catalyst::Plugin::Session::State::Cookie' => 0;
test_requires 'HTTP::Cookies'                            => 0;
test_requires 'HTTP::Request::AsCGI'                     => 0;

license 'perl_5';
homepage 'https://github.com/karpet/catalyst-authentication-authtkt';
bugtracker
    'http://rt.cpan.org/NoAuth/Bugs.html?Dist=Catalyst-Authentication-AuthTkt';
repository 'http://github.com/karpet/catalyst-authentication-authtkt';

WriteMakefile(
    PL_FILES => {},

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

use strict;
use Test::More tests => 21;

use lib 't/MyApp/lib';
use Catalyst::Test 'MyApp';
use HTTP::Request::Common;
use Data::Dump qw( dump );
use Config::General;
use Apache::AuthTkt;
use HTTP::Request::AsCGI;
use HTTP::Cookies;

my $class = 'MyApp';

# based on Catalyst::Test local_request() but
# hack in session cookie support.
my $scookie;

sub my_request {
    my $uri = shift or die "uri required";
    my $request = Catalyst::Utils::request($uri);
    if ($scookie) {
        $request->header( 'Cookie', $scookie );
    }
    my $response = request($request);
    if ( !$scookie && $response->header('Set-Cookie') ) {
        $scookie = $response->header('Set-Cookie');
        $scookie =~ s/;.*//;
    }
    return $response;
}

# cribbed from Test::HTTP::Response
sub extract_cookies {
    my $response = shift;
    my %cookies;
    my $cookie_jar = HTTP::Cookies->new();
    $cookie_jar->extract_cookies($response);
    $cookie_jar->scan(
        sub {
            my %cookie = ();
            @cookie{
                qw(version key value path domain port path domain port path_spec secure expires discard hash)
            } = @_;
            $cookies{ $cookie{key} } = \%cookie;
        }
    );

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

    $ENV{MYAPP_CONFIG} = 't/MyApp/myapp_ignore_ip.conf';
}

use lib 't/MyApp/lib';
use Catalyst::Test 'MyApp';
use HTTP::Request::Common;
use Data::Dump qw( dump );
use Config::General;
use Apache::AuthTkt;
use HTTP::Request::AsCGI;
use HTTP::Cookies;

my $class = 'MyApp';

# based on Catalyst::Test local_request() but
# hack in session cookie support.
my $scookie;

sub my_request {
    my $uri = shift or die "uri required";
    my $request = Catalyst::Utils::request($uri);
    if ($scookie) {
        $request->header( 'Cookie', $scookie );
    }
    my $response = request($request);
    if ( !$scookie && $response->header('Set-Cookie') ) {
        $scookie = $response->header('Set-Cookie');
        $scookie =~ s/;.*//;
    }
    return $response;
}

# cribbed from Test::HTTP::Response
sub extract_cookies {
    my $response = shift;
    my %cookies;
    my $cookie_jar = HTTP::Cookies->new();
    $cookie_jar->extract_cookies($response);
    $cookie_jar->scan(
        sub {
            my %cookie = ();
            @cookie{
                qw(version key value path domain port path domain port path_spec secure expires discard hash)
            } = @_;
            $cookies{ $cookie{key} } = \%cookie;
        }
    );

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

use strict;
use warnings;

use Catalyst::Runtime '5.70';

use Catalyst qw(
    ConfigLoader 
    Static::Simple 
    Authentication
    Session
    Session::State::Cookie
    Session::Store::Dummy   
);

our $VERSION = '0.01';

__PACKAGE__->setup;

1;