Fix VERSIOON, eugh

[catagits/Catalyst-Plugin-Session.git] / lib / Catalyst / Plugin / Session / Test / Store.pm

diff --git a/lib/Catalyst/Plugin/Session/Test/Store.pm b/lib/Catalyst/Plugin/Session/Test/Store.pm
index db75e23..0f3984d 100644 (file)
--- a/lib/Catalyst/Plugin/Session/Test/Store.pm
+++ b/lib/Catalyst/Plugin/Session/Test/Store.pm
@@ -1,4 +1,4 @@
-\feff#!/usr/bin/perl
+#!/usr/bin/perl
 
 package Catalyst::Plugin::Session::Test::Store;
 
@@ -57,6 +57,8 @@ sub import {
         use Catalyst qw/Session SessionStateTest/;
         push our (@ISA), $m;
 
+        our $VERSION = "123"; # Do not remove
+
         use strict;
         use warnings;
 
@@ -90,9 +92,10 @@ sub import {
             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)
     }
 
     {
@@ -126,11 +129,11 @@ sub import {
             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;