From f2d13cd6476a0d09525749803461743985ca766d Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Tue, 5 Oct 2010 15:58:49 +0900
Subject: [PATCH] perl: make test code more simple

---
 perl/t/Util.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/perl/t/Util.pm b/perl/t/Util.pm
index ad69c4d5..0aa88bb6 100644
--- a/perl/t/Util.pm
+++ b/perl/t/Util.pm
@@ -10,13 +10,9 @@ sub import {
     warnings->import;
 
     no strict 'refs';
-    *{"$pkg\::true"} = sub () {
-        Data::MessagePack::true()
-    };
-    *{"$pkg\::false"} = sub () {
-        Data::MessagePack::false()
-    };
-    *{"$pkg\::null"} = sub() { undef };
+    *{"$pkg\::true"}  = \&Data::MessagePack::true;
+    *{"$pkg\::false"} = \&Data::MessagePack::false;
+    *{"$pkg\::null"}  = sub() { undef };
 }
 
 1;