Introduce (empty for now) intermediate optdep groups related to IC::DT
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Optional / Dependencies.pm
index ae8abaf..ff28cad 100644 (file)
@@ -17,16 +17,8 @@ sub croak {
 # POD is generated automatically by calling _gen_pod from the
 # Makefile.PL in $AUTHOR mode
 
-# NOTE: the rationale for 2 JSON::Any versions is that
-# we need the newer only to work around JSON::XS, which
-# itself is an optional dep
-my $min_json_any = {
-  'JSON::Any'                     => '1.23',
-};
-my $test_and_dist_json_any = {
-  'JSON::Any'                     => '1.31',
-};
-
+# *DELIBERATELY* not making a group for these - they must disappear
+# forever as optdeps in the first place
 my $moose_basic = {
   'Moose'                         => '0.98',
   'MooseX::Types'                 => '0.21',
@@ -34,6 +26,38 @@ my $moose_basic = {
 };
 
 my $dbic_reqs = {
+
+  # NOTE: the rationale for 2 JSON::Any versions is that
+  # we need the newer only to work around JSON::XS, which
+  # itself is an optional dep
+  _json_any => {
+    req => {
+      'JSON::Any' => '1.23',
+    },
+  },
+
+  _json_xs_compatible_json_any => {
+    req => {
+      'JSON::Any' => '1.31',
+    },
+  },
+
+  # a common placeholder for engines with IC::DT support based off DT::F::S
+  # currently unused on purpose (see next commits)
+  _icdt_strptime_based => {},
+
+  _rdbms_generic_odbc => {
+    req => {
+      'DBD::ODBC' => 0,
+    }
+  },
+
+  _rdbms_generic_ado => {
+    req => {
+      'DBD::ADO' => 0,
+    }
+  },
+
   replicated => {
     req => $moose_basic,
     pod => {
@@ -50,9 +74,9 @@ my $dbic_reqs = {
   },
 
   admin => {
+    include => '_json_any',
     req => {
       %$moose_basic,
-      %$min_json_any,
       'MooseX::Types::Path::Class' => '0.05',
       'MooseX::Types::JSON' => '0.02',
     },
@@ -128,13 +152,12 @@ my $dbic_reqs = {
   },
 
   test_prettydebug => {
-    req => $min_json_any,
+    include => '_json_any',
   },
 
   test_admin_script => {
-    include => 'admin_script',
+    include => [qw( admin_script _json_xs_compatible_json_any )],
     req => {
-      %$test_and_dist_json_any,
       'JSON' => 0,
       'JSON::PP' => 0,
       'Cpanel::JSON::XS' => 0,
@@ -198,18 +221,6 @@ my $dbic_reqs = {
     },
   },
 
-  rdbms_generic_odbc => {
-    req => {
-      'DBD::ODBC' => 0,
-    }
-  },
-
-  rdbms_generic_ado => {
-    req => {
-      'DBD::ADO' => 0,
-    }
-  },
-
   # this is just for completeness as SQLite
   # is a core dep of DBIC for testing
   rdbms_sqlite => {
@@ -233,8 +244,12 @@ my $dbic_reqs = {
     },
   },
 
+  _rdbms_mssql_common => {
+    include => '_icdt_strptime_based',
+  },
+
   rdbms_mssql_odbc => {
-    include => 'rdbms_generic_odbc',
+    include => [qw( _rdbms_generic_odbc _rdbms_mssql_common )],
     pod => {
       title => 'MSSQL support via DBD::ODBC',
       desc => 'Modules required to connect to MSSQL via DBD::ODBC',
@@ -242,6 +257,7 @@ my $dbic_reqs = {
   },
 
   rdbms_mssql_sybase => {
+    include => '_rdbms_mssql_common',
     req => {
       'DBD::Sybase' => 0,
     },
@@ -252,15 +268,19 @@ my $dbic_reqs = {
   },
 
   rdbms_mssql_ado => {
-    include => 'rdbms_generic_ado',
+    include => [qw( _rdbms_generic_ado _rdbms_mssql_common )],
     pod => {
       title => 'MSSQL support via DBD::ADO (Windows only)',
       desc => 'Modules required to connect to MSSQL via DBD::ADO. This particular DBD is available on Windows only',
     },
   },
 
+  _rdbms_msaccess_common => {
+    include => '_icdt_strptime_based',
+  },
+
   rdbms_msaccess_odbc => {
-    include => 'rdbms_generic_odbc',
+    include => [qw( _rdbms_generic_odbc _rdbms_msaccess_common )],
     pod => {
       title => 'MS Access support via DBD::ODBC',
       desc => 'Modules required to connect to MS Access via DBD::ODBC',
@@ -268,7 +288,7 @@ my $dbic_reqs = {
   },
 
   rdbms_msaccess_ado => {
-    include => 'rdbms_generic_ado',
+    include => [qw( _rdbms_generic_ado _rdbms_msaccess_common )],
     pod => {
       title => 'MS Access support via DBD::ADO (Windows only)',
       desc => 'Modules required to connect to MS Access via DBD::ADO. This particular DBD is available on Windows only',
@@ -297,6 +317,7 @@ my $dbic_reqs = {
   },
 
   rdbms_ase => {
+    include => '_icdt_strptime_based',
     req => {
       'DBD::Sybase' => 0,
     },
@@ -306,7 +327,11 @@ my $dbic_reqs = {
     },
   },
 
+  _rdbms_db2_common => {
+  },
+
   rdbms_db2 => {
+    include => '_rdbms_db2_common',
     req => {
       'DBD::DB2' => 0,
     },
@@ -317,7 +342,7 @@ my $dbic_reqs = {
   },
 
   rdbms_db2_400 => {
-    include => 'rdbms_generic_odbc',
+    include => [qw( _rdbms_generic_odbc _rdbms_db2_common )],
     pod => {
       title => 'DB2 on AS/400 support',
       desc => 'Modules required to connect to DB2 on AS/400',
@@ -325,6 +350,7 @@ my $dbic_reqs = {
   },
 
   rdbms_informix => {
+    include => '_icdt_strptime_based',
     req => {
       'DBD::Informix' => 0,
     },
@@ -334,7 +360,12 @@ my $dbic_reqs = {
     },
   },
 
+  _rdbms_sqlanywhere_common => {
+    inclide => '_icdt_strptime_based',
+  },
+
   rdbms_sqlanywhere => {
+    include => '_rdbms_sqlanywhere_common',
     req => {
       'DBD::SQLAnywhere' => 0,
     },
@@ -345,14 +376,19 @@ my $dbic_reqs = {
   },
 
   rdbms_sqlanywhere_odbc => {
-    include => 'rdbms_generic_odbc',
+    include => [qw( _rdbms_generic_odbc _rdbms_sqlanywhere_common )],
     pod => {
       title => 'SQLAnywhere support via DBD::ODBC',
       desc => 'Modules required to connect to SQLAnywhere via DBD::ODBC',
     },
   },
 
+  _rdbms_firebird_common => {
+    include => '_icdt_strptime_based',
+  },
+
   rdbms_firebird => {
+    include => '_rdbms_firebird_common',
     req => {
       'DBD::Firebird' => 0,
     },
@@ -363,6 +399,7 @@ my $dbic_reqs = {
   },
 
   rdbms_firebird_interbase => {
+    include => '_rdbms_firebird_common',
     req => {
       'DBD::InterBase' => 0,
     },
@@ -373,7 +410,7 @@ my $dbic_reqs = {
   },
 
   rdbms_firebird_odbc => {
-    include => 'rdbms_generic_odbc',
+    include => [qw( _rdbms_generic_odbc _rdbms_firebird_common )],
     pod => {
       title => 'Firebird support via DBD::ODBC',
       desc => 'Modules required to connect to Firebird via DBD::ODBC',
@@ -573,8 +610,11 @@ my $dbic_reqs = {
   },
 
   dist_dir => {
+    # we need to run the dbicadmin so we can self-generate its POD
+    # also we do not want surprises in case JSON::XS is in the path
+    # so make sure we get an always-working JSON::Any
+    include => [qw( admin_script _json_xs_compatible_json_any )],
     req => {
-      %$test_and_dist_json_any,
       'ExtUtils::MakeMaker' => '6.64',
       'Pod::Inherit'        => '0.91',
     },
@@ -664,7 +704,7 @@ sub modreq_list_for {
 sub req_group_list {
   +{ map
     { $_ => $_[0]->_groups_to_reqs($_) }
-    keys %$dbic_reqs
+    grep { $_ !~ /^_/ } keys %$dbic_reqs
   }
 }
 
@@ -748,8 +788,6 @@ sub __envvar_group_desc {
   join '/', @res;
 }
 
-
-
 ### Private OO API
 our %req_unavailability_cache;
 
@@ -771,7 +809,7 @@ sub _groups_to_reqs {
 
   for my $group ( grep { ! $processed_groups->{$_} } @$groups ) {
 
-    $group =~ /\A [A-Za-z][0-9A-Z_a-z]* \z/x
+    $group =~ /\A [A-Z_a-z][0-9A-Z_a-z]* \z/x
       or croak "Invalid requirement group name '$group': only ascii alphanumerics and _ are allowed";
 
     croak "Requirement group '$group' is not defined" unless defined $dbic_reqs->{$group};