Perl: display original data

1 files changed, 14 insertions, 10 deletions

diff --git a/perl/benchmark/size.pl b/perl/benchmark/size.pl
index 85555ce..928daca 100644
--- a/perl/benchmark/size.pl
+++ b/perl/benchmark/size.pl
@@ -6,20 +6,24 @@ use Storable;
 use Text::SimpleTable;
 
 my @entries = (
-    1,
-    3.14,
-    {},
-    [],
-    [('a')x10],
-    {('a')x10},
-    +{1,+{1,+{}}},
-    +[+[+[]]],
+    '1',
+    '3.14',
+    '{}',
+    '[]',
+    "[('a')x10]",
+    "{('a')x10}",
+    "+{1,+{1,+{}}}",
+    "+[+[+[]]]",
 );
 
-my $table = Text::SimpleTable->new([10, 'storable'], [10, 'msgpack']);
+my $table = Text::SimpleTable->new([15, 'src'], [9, 'storable'], [7, 'msgpack']);
+
+for my $src (@entries) {
+    my $e = eval $src;
+    die $@ if $@;
 
-for my $e (@entries) {
     $table->row(
+        $src,
         length(Storable::nfreeze(ref $e ? $e : \$e)),
         length(Data::MessagePack->pack($e)),
     );