lib/CGI/Session/Serialize/yamlxs.pm

   1 package CGI::Session::Serialize::yamlxs;
   2
   3 use strict;
   4 use warnings;
   5
   6 use CGI::Session::ErrorHandler;
   7 use YAML::XS ();
   8
   9 $CGI::Session::Serialize::yamlxs::VERSION = '0.1';
  10 @CGI::Session::Serialize::yamlxs::ISA     = ( "CGI::Session::ErrorHandler" );
  11
  12 sub freeze {
  13     my ($self, $data) = @_;
  14     return YAML::XS::Dump($data);
  15 }
  16
  17 sub thaw {
  18     my ($self, $string) = @_;
  19     return (YAML::XS::Load($string))[0];
  20 }
  21
  22 1;