-- main::(test-require.pl:3)
my $DIR = dirname(__FILE__);
basename is on.
output set to not use terminal escape sequences
test-require.pl [1-9]
---------------------
  1    	use File::Basename;
  2    	use File::Spec;
  3  ->	my $DIR = dirname(__FILE__);
  4    	my $require_file = File::Spec->catfile($DIR, "test-module.pm");
  5    	require $require_file;
  6    	my $x = Test::Module::five();
  7    	my $y = $x;
  8    	
  9    	
-- main::(test-require.pl:4)
my $require_file = File::Spec->catfile($DIR, "test-module.pm");
-- main::(test-require.pl:5)
require $require_file;
-- Test::Module::(test-module.pm:5)
my $x = 1;
-- Test::Module::(test-module.pm:6)
my $y = 2;
-- main::(test-require.pl:6)
my $x = Test::Module::five();
-- Test::Module::(test-module.pm:3)
    return 5;
test-module.pm [1-6]
--------------------
  1    	package Test::Module;
  2    	sub five { 
  3  ->	    return 5;
  4    	}
  5    	my $x = 1;
  6    	my $y = 2;
*** Bad line range [7...16]; file "test-module.pm" has only 6 lines
--> #1 file `test-require.pl' at line 6
   main::(test-require.pl:6)
my $x = Test::Module::five();
test-require.pl [2-9]
---------------------
  2    	use File::Spec;
  3    	my $DIR = dirname(__FILE__);
  4    	my $require_file = File::Spec->catfile($DIR, "test-module.pm");
  5    	require $require_file;
  6  ->	my $x = Test::Module::five();
  7    	my $y = $x;
  8    	
  9    	
*** Bad line range [10...19]; file "test-require.pl" has only 9 lines
trepan.pl: That's all, folks...