Devel::Command::Tdump implements a debugger command, tdump, to automatically load Test::More into the debugger and to selectively capture portions of the debugger history to build a new Test::More-based test.

If you use Test::More's tests (is(), ok(), etc.) during a debugger session, tdump can then dump these tests out to a test file (you pick a name) with the proper test plan already in place.

Like this:

DB<5> use_ok("MyModule");
ok 1 - use MyModule;

DB<6> $arg1 = "something";

DB<7> # set first argument

DB<8> $arg2 = "yadda yadda";

DB<9> # Set second argument

DB<10> $try_it = MyModule->new($arg1, $arg2)

DB<11> # Create an object

DB<12> isa_ok($try_it, "MyModule")

DB<13> tdump "001basic.t"
Recording tests for this session in 001basic.t ... done (2 tests).

DB<14>

To install:

perl Makefile.PL
make
make test
make install