Lines 9-27
$INC{'CGI/Session/Serialize/yamlxs.pm'} = '1';
Link Here
|
9 |
|
9 |
|
10 |
use CGI::Session::ErrorHandler; |
10 |
use CGI::Session::ErrorHandler; |
11 |
use YAML::XS (); |
11 |
use YAML::XS (); |
12 |
use Encode (); |
|
|
13 |
|
12 |
|
14 |
$CGI::Session::Serialize::yamlxs::VERSION = '0.1'; |
13 |
$CGI::Session::Serialize::yamlxs::VERSION = '0.1'; |
15 |
@CGI::Session::Serialize::yamlxs::ISA = ( "CGI::Session::ErrorHandler" ); |
14 |
@CGI::Session::Serialize::yamlxs::ISA = ( "CGI::Session::ErrorHandler" ); |
16 |
|
15 |
|
17 |
sub freeze { |
16 |
sub freeze { |
18 |
my ($self, $data) = @_; |
17 |
my ($self, $data) = @_; |
19 |
return Encode::decode_utf8(YAML::XS::Dump($data)); |
18 |
return YAML::XS::Dump($data); |
20 |
} |
19 |
} |
21 |
|
20 |
|
22 |
sub thaw { |
21 |
sub thaw { |
23 |
my ($self, $string) = @_; |
22 |
my ($self, $string) = @_; |
24 |
return (YAML::XS::Load(Encode::encode_utf8($string)))[0]; |
23 |
return (YAML::XS::Load($string))[0]; |
25 |
} |
24 |
} |
26 |
# ******************************************************************** |
25 |
# ******************************************************************** |
27 |
|
26 |
|
28 |
- |
|
|