File Coverage

blib/lib/Data/Dimensions/Map.pm

Criterion	Covered	Total	%
statement	36	37	97.3
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	46	51	90.2

package Data::Dimensions::Map;
# hold information about units provided by the module

use strict;
use vars qw(%SI_base %SI_units %units %basic %prefixes);

# basic SI units only need prefix scaling...
%SI_base = (
	    m  => {m =>1 },
	    kg => {kg =>1},
	    s  => {s =>1 },
	    A  => {A =>1 },
	    K  => {K =>1 },
	    cd => {cd =>1},
	    mol=> {mol=>1},

	    rad=> {rad=>1},
	    sr => {sr =>1},

	    Hz => {s => -1},
	    N  => {kg => 1, m => 1, s => -2},
	    Pa => {kg => 1, m => -1,s => -2},
	    J  => {kg => 1, m => 2, s => -2},
	    W  => {kg => 1, m => 2, s => -3},

	    coul    => {A => 1, s=> 1},
	    V       => {kg =>1, m=> 2, s=> -3, A => -1},
	    ohm     => {kg =>1, m=> 2, s=> -3, A => -2},
	    S       => {kg =>-1,m=>-2, s=> 3, A => 2},
	    F       => {kg =>-1,m=>-2, s=> 4, A => 2},

	    Wb      => {kg =>1, m=> 2, s=> -2, A => -1},
	    H       => {kg =>1, m=> 2, s=> -2, A => -2},
	    T       => {kg =>1, m=> 1, s=> -2, A => -1},

	    lm      => {cd =>1, m=>-2},

	    Bq       => {s => -1},
	    Gy       => {m => 2, s => -2},
	    );
%SI_units = (
	     %SI_base,
	     meter=> $SI_base{m},
	     kilo=> $SI_base{kg},
	     kilogram=> $SI_base{kg},
	     kilogramme=> $SI_base{kg},
	     sec=> $SI_base{s},
	     second=> $SI_base{s},
	     amp=> $SI_base{A},
	     ampere=> $SI_base{A},
	     kelvin=> $SI_base{K},
	     candela=> $SI_base{cd},
	     mole=> $SI_base{mol},
	     radian => $SI_base{rad},
	     steradian=> $SI_base{sr},
	     sterad=> $SI_base{sr},
	     hertz=> $SI_base{Hz},
	     newton=> $SI_base{N},
	     pascal=> $SI_base{Pa},
	     joule=> $SI_base{J},
	     watt=> $SI_base{W},
	     coulomb=> $SI_base{coul},
	     volt=> $SI_base{V},
	     seimens=> $SI_base{S},
	     farad=> $SI_base{F},
	     weber=> $SI_base{Wb},
	     henry=> $SI_base{H},
	     tesla=> $SI_base{T},
	     lumen=> $SI_base{lm},
	     becquerel=> $SI_base{Bq},
	     gray=> $SI_base{Gy},
	     );

# This should be invoked last...  We know that SI units cannot change
# the scaling of the base value, so we can ignore that here
sub parse_SI {
    my ($hr, $scale) = @_;
    my %temp;

    foreach my $unit (keys %$hr) {
	if (exists $SI_units{$unit}) {
	    foreach (keys %{$SI_units{$unit}}) {
		$temp{$_} += $SI_units{$unit}->{$_} * $hr->{$unit};
	    }
	}
	else  {
	    $temp{$unit} += $hr->{$unit};
	}
    }
    return (\%temp, $scale);
}

%prefixes = (
	     semi=>     0.5,
             demi=>     0.5,
	     yotta=>	1e24,
	     zetta=>	1e21,
	     exa=>	1e18,
	     peta=>	1e15,
	     tera=>	1e12,
	     giga=>	1e9,
	     mega=>	1e6,
	     kilo=>	1e3,
	     hecto=>	1e2,
	     deka=>	1e1,
	     deci=>	1e-1,
	     centi=>	1e-2,
	     milli=>	1e-3,
	     micro=>	1e-6,
	     nano=>	1e-9,
	     pico=>	1e-12,
	     femto=>	1e-15,
	     atto=>	1e-18,
	     zopto=>	1e-21,
	     yocto=>	1e-24,
	     Y=>	1e24,
	     Z=>	1e21,
	     E=>	1e18,
	     P=>	1e15,
	     T=>	1e12,
	     G=>	1e9,
	     M=>	1e6,
	     k=>	1e3,
	     h=>	1e2,
	     da=>	1e1,
	     d=>	1e-1,
	     c=>	1e-2,
	     m=>	1e-3,
	     u=>	1e-6,
	     n=>	1e-9,
	     p=>	1e-12,
	     f=>	1e-15,
	     a=>	1e-18,
	     z=>	1e-21,
	     y=>	1e-24,
	     );

sub parse_prefix {
    my ($hr, $scale) = @_;
    my %temp;
    my $rg = join('|', keys %prefixes);
    my $rx = qr/^($rg)\-(\w+)$/;

    foreach (keys %$hr) {
	if ($_ =~ $rx) {
	    $temp{$2} = $hr->{$_};
	    $scale *= $prefixes{$1}**($hr->{$_});
	}
	else {
	    $temp{$_} = $hr->{$_};
	}
    }
    return (\%temp, $scale);
}

# $units{ unit } = [scale, {basic hash}];
%units = (
	  turn       => [ 2 * 3.14159, {rad=>1}],
	  revolution => [ 2 * 3.14159, {rad=>1}],
	  degree => [ 2*3.14159 / 360, {rad=>1}],
	  deg =>    [ 2*3.14159 / 360, {rad=>1}],
	  arcdeg =>    [ 2*3.14159 / 360, {rad=>1}],
	  arcmin =>    [ 2*3.14159 / (360*60), {rad=>1}],
	  arcsec =>    [ 2*3.14159 / (360*60*60), {rad=>1}],
	  minute => [ 60, {s=>1}],
	  min => [ 60, {s=>1}],
	  hour=> [ 60*60, {s=>1}],
	  hr=> [ 60*60, {s=>1}],
	  day => [ 24*60*60, {s=>1}],
	  week=> [ 7*24*60*60, {s=>1}],
	  year=> [ 365*24*60*60, {s=>1}], # non-leap
	  yr=> [ 365*24*60*60, {s=>1}],
	  gram=> [ 1e-3, {kg=>1}],
	  gm=> [1e-3 , {kg=>1}],
	  tonne=> [1e3 , {kg=>1}],
# avoirdupois
	  lb=> [.45359237 , {kg=>1}],
	  pound=> [ .45359237, {kg=>1}],
	  ounce=> [ .45359237/16, {kg=>1}],
	  oz=> [ .45359237/16, {kg=>1}],

	  micron => [ 1e-6, {m=>1}],
	  angstrom=> [ 1e-10, {m=>1}],
# Imperial
	  inch=> [2.54 / 100 , {m=>1}],
	  in => [ 2.54 / 100, {m=>1}],
	  foot=> [ 12*2.54 / 100, {m=>1}],
	  feet=> [12*2.54 / 100 , {m=>1}],
	  ft=> [ 12*2.54 / 100, {m=>1}],
	  yard=> [3*12*2.54 / 100, {m=>1}],
	  yd=> [ 3*12*2.54 / 100, {m=>1}],
	  mile=> [ 5280*12*2.54 / 100, {m=>1}],
	  nmile=> [ 1852, {m=>1}],
	  acre=> [4840 * (3*12*2.54 / 100)**2 , {m=>2}],
	  hectare => [100*100, {m => 2}],

	  cc=> [(1/100)**3 , {m=>3}],
	  liter=> [ 1000*((1/100)**3), {m=>3}],
	  ml => [ (1/100)**3, {m=>3}],

# US Liquid
	  gallon => [231 * (2.54 / 100)**3 , {m=>3}],
	  gal => [ 231 * (2.54 / 100)**3, {m=>3}],
	  quart => [ 231 * (2.54 / 100)**3 / 4, {m=>3}],
	  pint => [ 231 * (2.54 / 100)**3 / 8, {m=>3}],

# UK Liquid
	  brgallon => [277.420 * (2.54 / 100)**3 , {m=>3}],
	  brquart=> [ 277.420 * (2.54 / 100)**3 / 4, {m=>3}],
	  brpint => [ 277.420 * (2.54 / 100)**3 / 8, {m=>3}],

	  cal=> [ 4.1868, {joule=>1}],
	  mho=> [ 1, {ohm=>-1}],

	  baud => [ 1, {bit=>1, s=>-1}],
	  byte => [ 8 ,{bit=>1}],
	  block=> [ 512*8, {bit=>1}],

	  barn => [1e-28 , {m=>2}],
	  amu => [ 1.66044e-27, {kg=>1}],
	  electronvolt => [ 1.6021764e-19, {joule=>1}],
	  erg => [(1/100)**2 * (1/1000) , {m=>2, kg=>1, s=>-2}],
	  fermi=> [1e-15 , {m=>1}],
	  lightyear=> [ 365.25 * 299_792_458 * 60 * 60 * 24, {m=>1}],
	  parsec => [ 3.24 * 365.25 * 299_792_458 * 60 * 60 * 24, {m=>1}],

	  point=> [(1/72) * 2.54 / 100 , {m=>1}],

	  celsius    => [1 , {K=>1}], # although no zero point changes
	  centrigrade=> [1 , {K=>1}],

	  siderealyear=> [ 365.256360417* 24*60*60, {s=>1}],

	  percent => [ 0.01, {}],

# test me baby!
	  __HONK_IF_YOU_PERL => [10, {m=>1, s=>-1}],
	  );

# This is the general scaling and convert to base monster
sub parse_other {
    my ($hr, $scale) = @_;
    my %temp;
    foreach my $unit (keys %$hr) {
	if (exists $units{$unit}) {
	    my $factor = $units{$unit}->[0];
	    my $exp = $hr->{$unit};
	    foreach (keys %{$units{$unit}->[1]}) {
		$temp{$_} += $units{$unit}->[1]->{$_} * $exp;
	    }
	    $scale *= $factor ** $exp;
	}
	else {
	    $temp{$unit} = $hr->{$unit};
	}
    }
    return (\%temp, $scale);
}

1;

__END__