SL/ShopConnector/ALL.pm

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