diff options
| author | Fuji, Goro <gfuji@cpan.org> | 2010-10-05 15:58:49 +0900 |
|---|---|---|
| committer | Fuji, Goro <gfuji@cpan.org> | 2010-10-05 15:58:49 +0900 |
| commit | f2d13cd6476a0d09525749803461743985ca766d (patch) | |
| tree | 0b2c75ab7df0528d57b3de008bd498ab576ca6b3 /perl | |
| parent | 9346908485b30df552df6b5bc18337449347c471 (diff) | |
| download | msgpack-python-f2d13cd6476a0d09525749803461743985ca766d.tar.gz | |
perl: make test code more simple
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/t/Util.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/perl/t/Util.pm b/perl/t/Util.pm index ad69c4d..0aa88bb 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; |