mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 13:02:13 +01:00
21 lines
302 B
Perl
21 lines
302 B
Perl
|
package t::Util;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
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()
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|