File Coverage

blib/lib/Data/MessagePack/Types.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	36	36	100.0

package Data::MessagePack::Types;
use 5.008001;
use strict;
use warnings;
use Data::MessagePack;

use parent 'Exporter';
our @EXPORT = qw/msgpack_number msgpack_bool msgpack_string/;

our $VERSION = "0.01";

sub msgpack_number($) {
    return undef unless defined $_[0];
    $_[0] + 0;
}

sub msgpack_string($) {
    return undef unless defined $_[0];
    $_[0] . '';
}

sub msgpack_bool($) {
    $_[0] ? Data::MessagePack::true : Data::MessagePack::false;
}

1;
__END__