view release on metacpan or  search on metacpan

CheckStatus.pm  view on Meta::CPAN

sub FETCH
{
  $_[0]->{value};
}

sub STORE
{
  require Scalar::Util;

  if ( defined $_[1] && ! ref $_[1] && Scalar::Util::looks_like_number( $_[1] ) )
  {
    # set to non-zero value
    if ( $_[0]->{value} = $_[1] )
    {
      require Astro::FITS::CFITSIO;

      Astro::FITS::CFITSIO::fits_get_errstatus($_[0]->{value}, $_[0]->{etxt});
      $_[0]->{croak}->( 
         defined $_[0]->{utxt} ? ( 'CODE' eq ref $_[0]->{utxt} ?
				   $_[0]->{utxt}->(@{$_[0]}{'value','etxt'}) :