map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
$main::lxdebug->leave_sub();
map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
$main::lxdebug->leave_sub();
$main::lxdebug->enter_sub();
my ($a, $a_unit, $b, $b_unit) = @_;
$main::lxdebug->enter_sub();
my ($a, $a_unit, $b, $b_unit) = @_;
my $units = AM->retrieve_all_units;
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
my $units = AM->retrieve_all_units;
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
Most of them are either obvious or too obscure to care about unless you really have to.
The exceptions are documented here.
Most of them are either obvious or too obscure to care about unless you really have to.
The exceptions are documented here.