The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
-- main::(test-require.pl:3)
my $DIR = dirname(__FILE__);
basename is on.
output set to not use terminal escape sequences
set max list is 3.
x1 main::(test-require.pl:6)
my $x = Test::Module::five();
-- Test::Module::(test-module.pm:3)
    return 5;
test-module.pm [2-4]
--------------------
  2    	sub five { 
  3  ->	    return 5;
  4    	}
test-module.pm [5-6]
--------------------
  5    	my $x = 1;
  6    	my $y = 2;
*** Bad line range [7...9]; file "test-module.pm" has only 6 lines
test-module.pm [1-3]
--------------------
  1    	package Test::Module;
  2    	sub five { 
  3  ->	    return 5;
test-module.pm [2-4]
--------------------
  2    	sub five { 
  3  ->	    return 5;
  4    	}
--> #1 file `test-require.pl' at line 6
   main::(test-require.pl:6)
my $x = Test::Module::five();
test-require.pl [5-7]
---------------------
  5    	require $require_file;
  6  ->	my $x = Test::Module::five();
  7    	my $y = $x;
trepan.pl: That's all, folks...