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