SL/DB/Unit.pm

   1 # This file has been auto-generated only because it didn't exist.
   2 # Feel free to modify it at will; it will not be overwritten automatically.
   3
   4 package SL::DB::Unit;
   5
   6 use strict;
   7
   8 use SL::DB::MetaSetup::Unit;
   9
  10 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
  11 __PACKAGE__->meta->make_manager_class;
  12
  13 __PACKAGE__->meta->add_relationships(
  14   base => {
  15     type         => 'one to one',
  16     class        => 'SL::DB::Unit',
  17     column_map   => { base_unit => 'name' },
  18   },
  19 );
  20
  21 __PACKAGE__->meta->initialize;
  22
  23 #methods
  24
  25 sub unit_class {
  26   my $self   = shift;
  27
  28   return $self if !$self->base_unit || $self->name eq $self->base_unit;
  29   return $self->base->unit_class;
  30 }
  31
  32 sub convertible_units {
  33   my $self = shift;
  34   return [
  35     sort { $a->sortkey <=> $b->sortkey }
  36     grep { $_->unit_class->name eq $self->unit_class->name }
  37     @{ SL::DB::Manager::Unit->get_all }
  38   ];
  39 }
  40
  41 sub base_factor {
  42   my ($self) = @_;
  43
  44   if (!defined $self->{__base_factor}) {
  45     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
  46   }
  47
  48   return $self->{__base_factor};
  49 }
  50
  51 sub convert_to {
  52   my ($self, $qty, $other_unit) = @_;
  53
  54   my $my_base_factor    = $self->base_factor       || 1;
  55   my $other_base_factor = $other_unit->base_factor || 1;
  56
  57   return $qty * $my_base_factor / $other_base_factor;
  58 }
  59
  60 1;