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 1;