view release on metacpan or  search on metacpan

lib/App/Device/Chip/UI/SPIBox.pm  view on Meta::CPAN

method read ( $len )
{
   $self->_do_write( "\x00" x $len );
}

method _do_write ( $words_out )
{
   my $words_in = $_protocol->readwrite( $words_out )->get;

   $_readresultlabel->set_text(
      join " ", map { sprintf "0x%02X", ord } split m//, $words_in,
   );
}

0x55AA;