Select Code to Download

Select or download this

    package My::Role::PersistsData;
    
...
               isa       => 'Maybe[CGI::Session]',
               builder   => '_build_sss'
      );

Select or download this

        package My::Session;
        
...
    
              return ( $sss );
        }

Select or download this

    use Data::Dumper; 
    $Data::Dumper::Sortkeys = 1;
...
      print "TEST";
  
      print "<pre>",Dumper($sss),"</pre>";

Select or download this

     $sss = new CGI::Session("driver:File", $sid, {Directory=>'/tmp'})

Select or download this

    new(): failed: load(): couldn't thaw() data using CGI::Session::Se
+rialize::default:thaw(): couldn't thaw. syntax error at (eval 253) li
+ne 2, near &quot;/&gt;&quot;

Select or download this

    ....
        $self->{_DATA} = $self->{_OBJECTS}->{serializer}->thaw($raw_da
+ta);
...
            return $self->set_error( "load(): couldn't thaw() data usi
+ng $self->{_OBJECTS}->{serializer} :" .
                                    $self->{_OBJECTS}->{serializer}->e
+rrstr );
        }