kivitendo/SL/DB/Unit.pm @ 3ef69a72
| 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 }
|
|||
];
|
|||
}
|
|||
1;
|