mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-20 21:39:53 +01:00
23 lines
365 B
Perl
23 lines
365 B
Perl
package t::Util;
|
|
use strict;
|
|
use warnings;
|
|
use Data::MessagePack;
|
|
|
|
sub import {
|
|
my $pkg = caller(0);
|
|
|
|
strict->import;
|
|
warnings->import;
|
|
|
|
no strict 'refs';
|
|
*{"$pkg\::true"} = sub () {
|
|
Data::MessagePack::true()
|
|
};
|
|
*{"$pkg\::false"} = sub () {
|
|
Data::MessagePack::false()
|
|
};
|
|
*{"$pkg\::null"} = sub() { undef };
|
|
}
|
|
|
|
1;
|