SL/PriceSource/Price.pm

   1 package SL::PriceSource::Price;
   2
   3 use strict;
   4
   5 use parent 'SL::DB::Object';
   6 use Rose::Object::MakeMethods::Generic (
   7   scalar => [ qw(price description spec price_source) ],
   8   array => [ qw(depends_on) ]
   9 );
  10
  11 use SL::DB::Helper::Attr;
  12 SL::DB::Helper::Attr::make(__PACKAGE__,
  13   price => 'numeric(15,5)',
  14 );
  15
  16 sub source {
  17   $_[0]->price_source
  18   ?  $_[0]->price_source->name . '/' . $_[0]->spec
  19   : '';
  20 }
  21
  22 sub full_description {
  23   my ($self) = @_;
  24
  25   $self->price_source
  26     ? $self->price_source->description . ': ' . $self->description
  27     : $self->description
  28 }
  29
  30 sub to_str {
  31   "source: @{[ $_[0]->source ]}, price: @{[ $_[0]->price]}, description: @{[ $_[0]->description ]}"
  32 }
  33
  34 1;