# these envvars *will* bring in more stuff than the baseline
delete @ENV{qw(DBICTEST_SQLT_DEPLOY DBIC_TRACE)};
+ # make sure extras do not load even when this is set
+ $ENV{PERL_STRICTURES_EXTRA} = 1;
+
unshift @INC, 't/lib';
require DBICTest::Util::OverrideRequire;
namespace::clean
Try::Tiny
Sub::Name
+ strictures
+ Sub::Defer
Sub::Quote
Scalar::Util
List::Util
- Data::Compare
Class::Accessor::Grouped
Class::C3::Componentised
{
register_lazy_loadable_requires(qw(
Moo
+ Moo::Object
+ Method::Generate::Accessor
+ Method::Generate::Constructor
Context::Preserve
));
assert_no_missing_expected_requires();
}
+# make sure we never loaded any of the strictures XS bullshit
+{
+ ok( ! exists $INC{ Module::Runtime::module_notional_filename($_) }, "$_ load never attempted" )
+ for qw(indirect multidimensional bareword::filehandles);
+}
+
done_testing;
sub register_lazy_loadable_requires {