11 unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_strictures') ) {
12 my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('test_strictures');
14 ? die ("Failed to load release-testing module requirements: $missing")
15 : plan skip_all => "Test needs: $missing"
20 # The rationale is - if we can load all our optdeps
21 # that are related to lib/ - then we should be able to run
22 # perl -c checks (via syntax_ok), and all should just work
23 my $missing_groupdeps_present = grep
24 { ! DBIx::Class::Optional::Dependencies->req_ok_for($_) }
26 { $_ !~ /^ (?: test | rdbms | dist ) _ /x }
27 keys %{DBIx::Class::Optional::Dependencies->req_group_list}
30 # don't test syntax when RT#106935 is triggered (mainly CI)
31 # FIXME - remove when RT is resolved
32 my $tainted_relpath = (
38 { ! File::Spec->file_name_is_absolute($_) }
39 split /\Q$Config{path_sep}/, $ENV{PATH}
45 m/\.(?: pm | pl | t )$ /ix or return;
48 maint/Makefile.PL.inc/.+ # all the maint inc snippets are auto-strictured
50 t/lib/DBICTest/Util/OverrideRequire.pm # no stictures by design (load order sensitive)
55 Test::Strict::strict_ok($f);
56 Test::Strict::warnings_ok($f);
58 Test::Strict::syntax_ok($f) if (
61 ! $missing_groupdeps_present
67 }, (qw(lib t examples maint)) );