New add_crc pack function

Makefile.PL

@@ -27,9 +27,11 @@ if ( $] >= 5.008005 and want_xs() ) {
         cc_warnings;
         cc_include_paths('include');
         cc_src_paths('xs-src');
+	cc_libs '-lz';
 	postamble (qq{
 xs-src/pack.o : xshelper.h include/msgpack/pack_define.h include/msgpack/pack_template.h include/msgpack/sysdep.h
 xs-src/unpack.o : xshelper.h include/msgpack/unpack_define.h include/msgpack/unpack_template.h include/msgpack/sysdep.h
+xs-src/crc32.o : xshelper.h include/msgpack/sysdep.h
 });
 
         if($Module::Install::AUTHOR) {

benchmark/deserialize.pl

@@ -11,6 +11,7 @@
 
 my $j = JSON::encode_json($a);
 my $m = Data::MessagePack->pack($a);
+my $m_crc = Data::MessagePack->pack($a); Data::MessagePack->add_crc($m_crc);
 my $s = Storable::freeze($a);
 
 print "-- deserialize\n";
@@ -21,6 +22,7 @@
     -1 => {
         json     => sub { JSON::decode_json($j)     },
         mp       => sub { Data::MessagePack->unpack($m) },
+        mp_crc   => sub { Data::MessagePack->unpack($m_crc) },
         storable => sub { Storable::thaw($s) },
     }
 );

benchmark/pack_dl.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Data::MessagePack;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $p3 = Data::MessagePack->pack( \%h3 ) for (1 .. 10_000);

benchmark/pack_dm.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Data::MessagePack;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $p2 = Data::MessagePack->pack( \%h2 ) for (1 .. 10_000);

benchmark/pack_ds.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Data::MessagePack;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $p1 = Data::MessagePack->pack( \%h1 ) for (1...10_000);

benchmark/pack_jl.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use JSON;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $j3 = JSON::encode_json( \%h3 ) for (1 .. 10_000);

benchmark/pack_jm.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use JSON;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $j2 = JSON::encode_json( \%h2 ) for (1 .. 10_000);

benchmark/pack_js.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use JSON;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $j1 = JSON::encode_json( \%h1 ) for (1 .. 10_000);

benchmark/pack_sl.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Storable;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $s3 = Storable::freeze( \%h3 ) for (1 .. 10_000);

benchmark/pack_sm.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Storable;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $s2 = Storable::freeze( \%h2 ) for (1 .. 10_000);

benchmark/pack_ss.pl

@@ -0,0 +1,6 @@
+# -*- perl -*-
+use Storable;
+# benchmark small (50b), middle (2-3k) and large hashes (~100k)
+do 'benchmark/wordlist.pl';
+
+my $s1 = Storable::freeze( \%h1 ) for (1 .. 10_000);

benchmark/serialize.pl

@@ -16,6 +16,7 @@
         json     => sub { JSON::encode_json($a) },
         storable => sub { Storable::freeze($a) },
         mp       => sub { Data::MessagePack->pack($a) },
+        mp_crc   => sub { my $p = Data::MessagePack->pack($a); Data::MessagePack->add_crc($p); },
     }
 );