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

   ...

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