What set does II


sub STORE {
  my ($self, $val) = @_;
  my $obj = $self->[0];
  if (!ref($val) ||
          !UNIVERSAL::isa($val,
            'Data::Dimensions'))
  {
    $obj->natural($val);
  }
  else {
    $obj->_moan("yuck!")
           unless $obj->same_units($val);
    $obj->base($val->base);
  }
}