1N/A# Tests for the coderef-in-@INC feature 1N/A chdir 't' if -d 't'; 1N/A my $f = "DummyModule0000"; 1N/Aok( eval "use Bar1; 1;", 'use Bar1' ); 1N/A my ($self, $filename) = @_; 1N/A return get_temp_fh($filename, qq(return "abc";\n)); 1N/A @INC = sub { $filename = 'seen'; return undef; }; 1N/A eval { require $filename; };