File Coverage

blib/lib/DR/Msgpuck/Str.pm

Criterion	Covered	Total	%
statement	26	33	78.7
branch	10	14	71.4
condition	1	3	33.3
subroutine	7	10	70.0
pod	0	2	0.0
total	44	62	70.9

use utf8;
use strict;
use warnings;

package DR::Msgpuck::Str;
use Carp;
use overload
    bool        => sub { ${ $_[0] } ? 1 : 0 },
    int         => sub { int ${ $_[0] } },
    '""'        => sub { ${ $_[0] } },
;

sub TO_MSGPACK {
    my ($self) = @_;
    my $len = length $$self;
    return pack 'Ca*',      0xA0| $len, $$self if $len < 0x20;
    return pack 'CCa*',     0xD9, $len, $$self if $len < 0x1_00;
    return pack 'Cs>a*',    0xDA, $len, $$self if $len < 0x1_0000;
    return pack 'Cl>a*',    0xDB, $len, $$self if $len <= 0xFFFF_FFFF;
    croak "Too long line ($len bytes) can't be packed as msgpack";
}

sub new {
    my ($class, $v) = @_;
    croak 'usage DR::Msgpuck::Str->new($str)' unless defined $v;
    $v = "$v";
    utf8::encode $v if utf8::is_utf8 $v;
    bless \$v => ref($class) || $class;
}

1;

__END__