projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt
[kivitendo-erp.git]
/
SL
/
Auth
/
SessionValue.pm
diff --git
a/SL/Auth/SessionValue.pm
b/SL/Auth/SessionValue.pm
index
cfaa624
..
3cc80bb
100644
(file)
--- a/
SL/Auth/SessionValue.pm
+++ b/
SL/Auth/SessionValue.pm
@@
-7,9
+7,9
@@
use strict;
use SL::Locale::String ();
use Scalar::Util qw(weaken);
use SL::Locale::String ();
use Scalar::Util qw(weaken);
-use YAML;
use SL::DBUtils;
use SL::DBUtils;
+use SL::YAML;
sub new {
my ($class, %params) = @_;
sub new {
my ($class, %params) = @_;
@@
-39,7
+39,7
@@
sub get_dumped {
my ($self) = @_;
no warnings 'once';
local $YAML::Stringify = 1;
my ($self) = @_;
no warnings 'once';
local $YAML::Stringify = 1;
- return YAML::Dump($self->get);
+ return
SL::
YAML::Dump($self->get);
}
sub _fetch {
}
sub _fetch {
@@
-58,7
+58,7
@@
sub _fetch {
sub _parse {
my ($self) = @_;
sub _parse {
my ($self) = @_;
- $self->{value} = YAML::Load($self->{value}) unless $self->{parsed};
+ $self->{value} =
SL::
YAML::Load($self->{value}) unless $self->{parsed};
$self->{parsed} = 1;
return $self;
$self->{parsed} = 1;
return $self;
@@
-71,7
+71,7
@@
sub _load_value {
my %params = ( simple => 1 );
eval {
my %params = ( simple => 1 );
eval {
- my $data = YAML::Load($value);
+ my $data =
SL::
YAML::Load($value);
if (ref $data eq 'HASH') {
map { $params{$_} = $data->{$_} } keys %{ $data };
if (ref $data eq 'HASH') {
map { $params{$_} = $data->{$_} } keys %{ $data };