my ($oid_hex, $type, $size) = ($1, $2, $3 + 0);
my $bref = read_cat_in_full($self, $size);
eval { $cb->($bref, $oid_hex, $type, $size, $arg) };
my ($oid_hex, $type, $size) = ($1, $2, $3 + 0);
my $bref = read_cat_in_full($self, $size);
eval { $cb->($bref, $oid_hex, $type, $size, $arg) };