SL/ShopConnector/ALL.pm

   1 package SL::ShopConnector::ALL;
   2
   3 use strict;
   4
   5 use SL::ShopConnector::Shopware;
   6
   7 my %shop_connector_by_name = (
   8   shopware    => 'SL::ShopConnector::Shopware',
   9 );
  10
  11 my %shop_connector_by_connector = (
  12   shopware   => 'SL::ShopConnector::Shopware',
  13 );
  14
  15 my @shop_connector_order = qw(
  16   shopware
  17 );
  18
  19 my @shop_connectors = (
  20   { id => "shopware",   description => "Shopware" },
  21 );
  22
  23
  24 sub all_shop_connectors {
  25   map { $shop_connector_by_name{$_} } @shop_connector_order;
  26 }
  27
  28 sub shop_connector_class_by_name {
  29   $shop_connector_by_name{$_[1]};
  30 }
  31
  32 sub shop_connector_class_by_connector {
  33   $shop_connector_by_connector{$_[1]};
  34 }
  35
  36 sub connectors {
  37   \@shop_connectors;
  38 }
  39 1;