Revision 65b2387a
Von Moritz Bunkus vor mehr als 6 Jahren hinzugefügt
| SL/Auth/SessionValue.pm | ||
|---|---|---|
|
use SL::Locale::String ();
|
||
|
|
||
|
use Scalar::Util qw(weaken);
|
||
|
use YAML;
|
||
|
|
||
|
use SL::DBUtils;
|
||
|
use SL::YAML;
|
||
|
|
||
|
sub new {
|
||
|
my ($class, %params) = @_;
|
||
| ... | ... | |
|
my ($self) = @_;
|
||
|
no warnings 'once';
|
||
|
local $YAML::Stringify = 1;
|
||
|
return YAML::Dump($self->get);
|
||
|
return SL::YAML::Dump($self->get);
|
||
|
}
|
||
|
|
||
|
sub _fetch {
|
||
| ... | ... | |
|
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;
|
||
| ... | ... | |
|
|
||
|
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 };
|
||
Auch abrufbar als: Unified diff
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt