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 sub source {
  12   $_[0]->price_source
  13   ?  $_[0]->price_source->name . '/' . $_[0]->spec
  14   : '';
  15 }
  16
  17 sub full_description {
  18   my ($self) = @_;
  19
  20   $self->price_source
  21     ? $self->price_source->description . ': ' . $self->description
  22     : $self->description
  23 }
  24
  25 1;