123456789 #!/usr/bin/env perluse warnings; use strict;use Test::More;use rlib '.';use Helper;my $test_prog = File::Spec->catfile(dirname(__FILE__), qw(.. example test-require.pl));Helper::run_debugger("$test_prog", 'list2.cmd');done_testing();
#!/usr/bin/env perl
use
warnings;
strict;
Test::More;
rlib
'.'
;
Helper;
my
$test_prog
= File::Spec->catfile(dirname(__FILE__),
qw(.. example test-require.pl)
);
Helper::run_debugger(
"$test_prog"
,
'list2.cmd'
done_testing();