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 source price_source) ],
   8   array => [ qw(depends_on) ]
   9 );
  10
  11 sub full_description {
  12   my ($self) = @_;
  13
  14   $self->price_source
  15     ? $self->price_source->description . ': ' . $self->description
  16     : $self->description
  17 }
  18
  19 1;