kivitendo/SL/DB/Unit.pm @ 84e1c3e5
| 82515b2d | Sven Schöling | # This file has been auto-generated only because it didn't exist.
|
||
# Feel free to modify it at will; it will not be overwritten automatically.
|
||||
package SL::DB::Unit;
|
||||
use strict;
|
||||
use SL::DB::MetaSetup::Unit;
|
||||
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
|
||||
__PACKAGE__->meta->make_manager_class;
|
||||
__PACKAGE__->meta->add_relationships(
|
||||
base => {
|
||||
type => 'one to one',
|
||||
class => 'SL::DB::Unit',
|
||||
column_map => { base_unit => 'name' },
|
||||
},
|
||||
);
|
||||
__PACKAGE__->meta->initialize;
|
||||
#methods
|
||||
sub unit_class {
|
||||
my $self = shift;
|
||||
return $self if !$self->base_unit || $self->name eq $self->base_unit;
|
||||
return $self->base->unit_class;
|
||||
}
|
||||
sub convertible_units {
|
||||
my $self = shift;
|
||||
return [
|
||||
sort { $a->sortkey <=> $b->sortkey }
|
||||
grep { $_->unit_class->name eq $self->unit_class->name }
|
||||
@{ SL::DB::Manager::Unit->get_all }
|
||||
];
|
||||
}
|
||||
| 65bc835d | Moritz Bunkus | sub base_factor {
|
||
my ($self) = @_;
|
||||
if (!defined $self->{__base_factor}) {
|
||||
$self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
|
||||
}
|
||||
return $self->{__base_factor};
|
||||
}
|
||||
sub convert_to {
|
||||
my ($self, $qty, $other_unit) = @_;
|
||||
my $my_base_factor = $self->base_factor || 1;
|
||||
my $other_base_factor = $other_unit->base_factor || 1;
|
||||
return $qty * $my_base_factor / $other_base_factor;
|
||||
}
|
||||
| 82515b2d | Sven Schöling | 1;
|