Select Code to Download

sub _device_read{
   my $d = shift;  # reduced line to relevant parts
...

   # parse device config
   $d->{regs}=from_json( $d->{regs} );

sub _device_read{
  ...
...
    return (...) if( $_[0] );
    return( $c{_err_} );
};

my %registers = %{$d->{regs}->{r}};
foreach my $reg (keys %registers){
...

  $r->{$reg} = _prettify_byte($tmp);
};

my %registers = %{$d->{regs}->{r}};
foreach my $reg (keys %registers){
...

  $r->{$reg} = _prettify_byte($tmp);
};