kivitendo/SL/PriceSource/Price.pm @ 0409db7c
| eebe8e90 | Sven Schöling | package SL::PriceSource::Price;
|
||
use strict;
|
||||
use parent 'SL::DB::Object';
|
||||
use Rose::Object::MakeMethods::Generic (
|
||||
| 0409db7c | Sven Schöling | scalar => [ qw(price description spec price_source) ],
|
||
| eebe8e90 | Sven Schöling | array => [ qw(depends_on) ]
|
||
);
|
||||
| 0409db7c | Sven Schöling | sub source {
|
||
$_[0]->price_source
|
||||
? $_[0]->price_source->name . '/' . $_[0]->spec
|
||||
: '';
|
||||
}
|
||||
| eebe8e90 | Sven Schöling | sub full_description {
|
||
my ($self) = @_;
|
||||
$self->price_source
|
||||
? $self->price_source->description . ': ' . $self->description
|
||||
: $self->description
|
||||
}
|
||||
1;
|