perl: add JSON.pm-like interface: Data::MessagePack->new->encode(...)

perl/lib/Data/MessagePack.pm

@@ -33,6 +33,14 @@ if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
     }
 }
 
+sub new {
+    my($class) = @_;
+    return bless {}, $class;
+}
+
+sub encode; *encode = __PACKAGE__->can('pack');
+sub decode; *decode = __PACKAGE__->can('unpack');
+
 1;
 __END__
 

perl/t/18_new_interface.t

@@ -0,0 +1,15 @@
+#!perl
+use strict;
+use warnings;
+
+use Test::More;
+
+use Data::MessagePack;
+
+my $mp = Data::MessagePack->new();
+
+is_deeply $mp->decode( $mp->encode(\%ENV) ), \%ENV;
+
+
+done_testing;
+