+sub log_bytes {
+ my ($self, $bytes, $msg) = @_;
+
+ return if !@$bytes;
+
+ $msg = defined $msg ? '# ' . $msg : '';
+
+ $self->log_print((map { sprintf("%02x", $_) } @$bytes), $msg);
+}
+
+sub log_cmd {
+ my ($self, @args) = @_;
+
+ $self->log_print('cmd', @args);
+}
+