perl: make test code more simple

This commit is contained in:
Fuji, Goro 2010-10-05 15:58:49 +09:00
parent 9346908485
commit f2d13cd647

View File

@ -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;