@initial_INC = @INC;
}
-BEGIN {
- unshift @INC, 't/lib';
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+BEGIN {
if ( "$]" < 5.010) {
# Pre-5.10 perls pollute %INC on unsuccesfull module
wanted => sub {
-f $_ or return;
+ $_ =~ m|lib/DBIx/Class/_TempExtlib| and return;
+
# can't just `require $fn`, as we need %INC to be
# populated properly
my ($mod) = $_ =~ /^ lib [\/\\] (.+) \.pm $/x
my @known_modules = sort
{ ($load_weights->{$b}||0) <=> ($load_weights->{$a}||0) }
+ qw( Data::Dumper ),
keys %{
DBIx::Class::Optional::Dependencies->req_list_for([
grep