SL/DB/Unit.pm

   1 package SL::DB::Unit;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Unit;
   6 use SL::DB::Manager::Unit;
   7
   8 __PACKAGE__->meta->add_relationships(
   9   base => {
  10     type         => 'many to one',
  11     class        => 'SL::DB::Unit',
  12     column_map   => { base_unit => 'name' },
  13   },
  14 );
  15
  16 __PACKAGE__->meta->initialize;
  17
  18 #methods
  19
  20 sub unit_class {
  21   my $self   = shift;
  22
  23   return $self if !$self->base_unit || $self->name eq $self->base_unit;
  24   return $self->base->unit_class;
  25 }
  26
  27 sub convertible_units {
  28   my $self = shift;
  29   return [
  30     sort { $a->sortkey <=> $b->sortkey }
  31     grep { $_->unit_class->name eq $self->unit_class->name }
  32     @{ SL::DB::Manager::Unit->get_all }
  33   ];
  34 }
  35
  36 sub base_factor {
  37   my ($self) = @_;
  38
  39   if (!defined $self->{__base_factor}) {
  40     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
  41   }
  42
  43   return $self->{__base_factor};
  44 }
  45
  46 sub convert_to {
  47   my ($self, $qty, $other_unit) = @_;
  48
  49   my $my_base_factor    = $self->base_factor       || 1;
  50   my $other_base_factor = $other_unit->base_factor || 1;
  51
  52   return $qty * $my_base_factor / $other_base_factor;
  53 }
  54
  55 1;