sub _has_next_packet
{
	my $self = shift;
	return substr($_[0], -5) !~ qr/(\xfe\0\0\x22\x00|\xfe\0\0\x02\x00)/;
}