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