1#!/usr/bin/perl 2use strict; 3use warnings; 4 5use Time::Moment qw[]; 6use Sereal 2.030 qw[encode_sereal decode_sereal]; 7 8my @moments = (Time::Moment->now, Time::Moment->now_utc); 9my $encoded = encode_sereal([ @moments ], { freeze_callbacks => 1 }); 10my $decoded = decode_sereal($encoded); 11 12foreach my $moment (@$decoded) { 13 print $moment->to_string, "\n"; 14} 15