-\feff#!/usr/bin/perl
+#!/usr/bin/perl
package Catalyst::Plugin::Session::Test::Store;
use utf8;
-use Test::More tests => 19;
+use Test::More;
use File::Temp;
use File::Spec;
shift;
my %args = @_;
+ plan tests => 19 + ($args{extra_tests} || 0);
+
my $backend = $args{backend};
my $cfg = $args{config};
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;
{
- package SessionStoreTest2;
+ package # Hide from PAUSE
+ SessionStoreTest2;
use Catalyst qw/Session SessionStateTest/;
push our (@ISA), $m;
{
- 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");