SL/PriceSource/ALL.pm

   1 package SL::PriceSource::ALL;
   2
   3 use strict;
   4 use SL::PriceSource::Pricegroup;
   5 use SL::PriceSource::MasterData;
   6
   7 my %price_sources_by_name = (
   8   master_data => 'SL::PriceSource::MasterData',
   9   pricegroup  => 'SL::PriceSource::Pricegroup',
  10 );
  11
  12 my @price_sources_order = qw(
  13   master_data
  14   pricegroup
  15 );
  16
  17 sub all_price_sources {
  18   map { $price_sources_by_name{$_} } @price_sources_order;
  19 }
  20
  21 sub price_source_class_by_name {
  22   $price_sources_by_name{$_[1]};
  23 }
  24
  25 1;