CBOR::XS incr_parse die

case.pl

use 5.010;
use CBOR::XS;
use Data::Dumper;

my $cbor = CBOR::XS->new();
my $data = "\x82\x01\xD9\x56\x52\x44test";
say Dumper $cbor->decode($data);
my $buf;
for (split //, $data) {
	$buf .= $_;
	eval {
		for ($cbor->incr_parse($buf)) {
			say "decoded: @$_";
		}
	1} or warn "Died: $@";
}

$ perl case.pl 
$VAR1 = [
          1,
          \'test'
        ];

Died: unexpected end of CBOR data, at offset 5 (octet 0x00) at case.pl line 12.
decoded: 1 SCALAR(0x242e2f0)