File Coverage

unit.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch			n/a
condition	1	3	33.3
subroutine	12	13	92.3
pod			n/a
total	46	50	92.0

package Unit;

use strict;
use warnings;

use unitConverter;
use factor;
use transformedUnit;

# heritage
use base qw( Factor );

sub new {
  my ( $class ) = @_;
  $class = ref($class) || $class;
  my $this = $class->SUPER::new();
  bless($this, $class);
  return $this;
}

sub getConverterTo {
  my ( $this, $target ) = @_;
  return $target->toBase->inverse->concatenate($this->toBase);
}

sub toBase {
  die "abstract method toBase";
}

sub shift {
  my ( $this, $value ) = @_;
  return TransformedUnit->new(UnitConverter->newTranslation($value), $this);
}

sub scaleMultiply {
  my ( $this, $value ) = @_;
  return TransformedUnit->new(UnitConverter->newLinear($value), $this);
}

sub scaleDivide {
  my ( $this, $value ) = @_;
  return $this->scaleMultiply(1.0 / $value);
}

sub factor {
  my ( $this, $numerator, $denominator ) = @_;
  return Factor->new($this, $numerator, $denominator);
}

=head1 NAME

Unit - representation of an abstract unit

=head1 DESCRIPTION

This module maps a conceptual class that represents an abstract unit of measurement.

=head1 AUTHOR

Samuel Andres

=head1 LICENSE

UnLicense

=cut

1;