Oooh! Very cool!..
I wrapped the part of the main body that runs stuff into a sub run() and then I have a line such as (in bin/script).. (pseudocode follows..)
#!/usr/bin/perl
caller() or run();
sub run {
print do_stuff_1();
print do_stuff_2();
}
sub do_stuff_1 { 1 }
sub do_stuff_2 { 2 }
1;
Then in t/00.t
use Test::Simple 'no_plan';
require 'bin/script';
ok( do_stuff_1(), 'do_stuff_1()' );
Thank you! This is a wonderful solution. (Maybe someone has another (more elegant, less intrusive?) way to do this?)