File Coverage

blib/lib/Data/MessagePack.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	1	3	33.3
total	42	44	95.4

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

our $VERSION = '1.01';

sub true () {
    require Data::MessagePack::Boolean;
    no warnings 'once';
    return $Data::MessagePack::Boolean::true;
}

sub false () {
    require Data::MessagePack::Boolean;
    no warnings 'once';
    return $Data::MessagePack::Boolean::false;
}

if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate
    my $backend = $ENV{PERL_DATA_MESSAGEPACK} || ($ENV{PERL_ONLY} ? 'pp' : '');
    if ( $backend !~ /\b pp \b/xms ) {
        eval {
            require XSLoader;
            XSLoader::load(__PACKAGE__, $VERSION);
        };
        die $@ if $@ && $backend =~ /\b xs \b/xms; # force XS
    }
    if ( !__PACKAGE__->can('pack') ) {
        require 'Data/MessagePack/PP.pm';
    }
}

sub new {
    my($class, %args) = @_;
    return bless \%args, $class;
}

foreach my $name(qw(canonical prefer_integer utf8)) {
    my $setter = sub {
        my($self, $value) = @_;
        $self->{$name} = defined($value) ? $value : 1;
        return $self;
    };
    my $getter = sub {
        my($self) = @_;
        return $self->{$name};
    };
    no strict 'refs';
    *{$name}          = $setter;
    *{'get_' . $name} = $getter;
}


sub encode; *encode = __PACKAGE__->can('pack');
sub decode; *decode = __PACKAGE__->can('unpack');

1;
__END__