SL/ShopConnector/ALL.pm

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