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   my $all_units = scalar(@_) && (ref($_[0]) eq 'ARRAY') ? $_[0] : \@_;
  31   $all_units    = SL::DB::Manager::Unit->get_all if !@{ $all_units };
  32   return [
  33     sort { $a->sortkey <=> $b->sortkey }
  34     grep { $_->unit_class->name eq $self->unit_class->name }
  35     @{ $all_units }
  36   ];
  37 }
  38
  39 sub base_factor {
  40   my ($self) = @_;
  41
  42   if (!defined $self->{__base_factor}) {
  43     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
  44   }
  45
  46   return $self->{__base_factor};
  47 }
  48
  49 sub convert_to {
  50   my ($self, $qty, $other_unit) = @_;
  51
  52   my $my_base_factor    = $self->base_factor       || 1;
  53   my $other_base_factor = $other_unit->base_factor || 1;
  54
  55   return $qty * $my_base_factor / $other_base_factor;
  56 }
  57
  58 1;