Revision cf63992e
Von Sven Schöling vor etwa 10 Jahren hinzugefügt
| SL/PriceSource/Price.pm | ||
|---|---|---|
| 26 | 26 |
: $self->description |
| 27 | 27 |
} |
| 28 | 28 |
|
| 29 |
sub source_description {
|
|
| 30 |
my ($self) = @_; |
|
| 31 |
|
|
| 32 |
$self->price_source |
|
| 33 |
? $self->price_source->description |
|
| 34 |
: $self->description |
|
| 35 |
} |
|
| 36 |
|
|
| 29 | 37 |
sub to_str {
|
| 30 | 38 |
"source: @{[ $_[0]->source ]}, price: @{[ $_[0]->price]}, description: @{[ $_[0]->description ]}"
|
| 31 | 39 |
} |
Auch abrufbar als: Unified diff
PriceSource: Nur den Namen des Moduls anzeigen, nicht den vollen Namen