-\feff#!/usr/bin/perl
+#!/usr/bin/perl
package Catalyst::Plugin::Session::Test::Store;
isa_ok( bless( {}, $m ), "Catalyst::Plugin::Session::Store" );
{
- package Catalyst::Plugin::SessionStateTest;
+ package # Hide from PAUSE
+ Catalyst::Plugin::SessionStateTest;
use base qw/Catalyst::Plugin::Session::State/;
no strict 'refs';
{
- package SessionStoreTest;
+ package # Hide from PAUSE
+ SessionStoreTest;
use Catalyst qw/Session SessionStateTest/;
push our (@ISA), $m;
ok( !$c->session_delete_reason, "no reason for deletion" );
}
- @{ __PACKAGE__->config->{session} }{ keys %$cfg } = values %$cfg;
+ @{ __PACKAGE__->config->{'Plugin::Session'} }{ keys %$cfg } = values %$cfg;
- __PACKAGE__->setup;
+ { __PACKAGE__->setup; }; # Extra block here is an INSANE HACK to get inlined constructor
+ # (i.e. to make B::Hooks::EndOfScope fire)
}
{
- package SessionStoreTest2;
+ package # Hide from PAUSE
+ SessionStoreTest2;
use Catalyst qw/Session SessionStateTest/;
push our (@ISA), $m;
- our $VERSION = "123";
-
use Test::More;
sub create_session : Global {
ok( !$c->session->{magic}, "no saved data" );
}
- __PACKAGE__->config->{session}{expires} = 0;
+ __PACKAGE__->config->{'Plugin::Session'}{expires} = 0;
- @{ __PACKAGE__->config->{session} }{ keys %$cfg } = values %$cfg;
+ @{ __PACKAGE__->config->{'Plugin::Session'} }{ keys %$cfg } = values %$cfg;
- __PACKAGE__->setup;
+ { __PACKAGE__->setup; }; # INSANE HACK (the block - as above)
}
use Test::More;
{
- package t1;
+ package # Hide from PAUSE
+ t1;
use Catalyst::Test "SessionStoreTest";
# idiotic void context warning workaround
{
- package t2;
+ package # Hide fram PAUSE
+ t2;
use Catalyst::Test "SessionStoreTest2";
my $x = get("/create_session");