view release on metacpan or  search on metacpan

lib/Device/Chip/BMP280.pm  view on Meta::CPAN

   $adc_T or die "ADC_T returned all-zero result - likely faulty sensor\n";

   return ( $adc_P, $adc_T ) unless length $bytesH;

   my $adc_H = unpack( "S>",          $bytesH );
   $adc_H or die "ADC_H returned all-zero result - likely faulty sensor\n";

   return ( $adc_P, $adc_T, $adc_H );
}

# Compensation formulae directly from BME280 datasheet section 8.1

field $_t_fine;

field @_dig_T;

async method _compensate_temperature ( $adc_T )
{
   @_dig_T or
      @_dig_T = ( undef, unpack "S< s< s<", await $self->read_reg( REG_DIG_T1, 6 ) );