move session key prefix setting to Store from Core

lib/Ark/Plugin/Session/Backend.pm

@@ -15,7 +15,7 @@ has session_data => (
     builder => sub {
         my $self = shift;
         return unless $self->session_id;
-        $self->get_session_data( 'session:' . $self->session_id );
+        $self->get_session_data( $self->session_id );
     },
 );
 
@@ -85,7 +85,7 @@ sub initialize_session_data {
     $self->session_data({});
 }
 
-# Store
+# State
 sub get_session_id { }
 
 sub set_session_id {
@@ -106,7 +106,7 @@ sub finalize_session {
     my ($self, $res) = @_;
 
     if ($self->session_updated and my $sid = $self->session_id) {
-        $self->set_session_data( "session:${sid}", $self->session_data );
+        $self->set_session_data( $sid, $self->session_data );
     }
 }
 

lib/Ark/Plugin/Session/Store/Model.pm

@@ -1,7 +1,7 @@
 package Ark::Plugin::Session::Store::Model;
 use Ark::Plugin 'Session';
 
-has model => (
+has store_model => (
     is      => 'rw',
     isa     => 'Object',
     lazy    => 1,
@@ -11,11 +11,18 @@ has model => (
     },
 );
 
+has store_model_key_prefix => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => 'session:',
+);
+
 around 'get_session_data' => sub {
     my $next = shift;
     my ($self, $key) = @_;
+    $key = $self->store_model_key_prefix . $key;
 
-    if (my $session = $self->model->get($key)) {
+    if (my $session = $self->store_model->get($key)) {
         return $session;
     }
 
@@ -25,17 +32,19 @@ around 'get_session_data' => sub {
 around 'set_session_data' => sub {
     my $next = shift;
     my ($self, $key, $value) = @_;
+    $key = $self->store_model_key_prefix . $key;
 
-    $self->model->set( $key, $value );
+    $self->store_model->set( $key, $value );
 
     $next->(@_);
 };
 
 around 'remove_session_data' => sub {
     my $next = shift;
     my ($self, $key) = @_;
+    $key = $self->store_model_key_prefix . $key;
 
-    $self->model->remove( $key );
+    $self->store_model->remove( $key );
 
     $next->(@_);
 };