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

e-travel · Aug 19, 2011 · 356b7b4 · 356b7b4
1 parent 92718e2
commit 356b7b4
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/perl/lib/Data/MessagePack.pm b/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__
 

diff --git a/perl/t/18_new_interface.t b/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;
+