our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify ary_to_hash uri_encode uri_decode);
use List::MoreUtils qw(zip);
use YAML;
our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify ary_to_hash uri_encode uri_decode);
use List::MoreUtils qw(zip);
use YAML;
$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.