How to make the script to return with specified value in Perl debugger?

I tried various ways, but none works...

  DB<4> T
. = main::t() called from file `dbg' line 6
  DB<4> return;

  DB<5> T
. = main::t() called from file `dbg' line 6
  DB<5> return 1;

  DB<6> T
. = main::t() called from file `dbg' line 6
  DB<6> eval('return')

  DB<7> T
. = main::t() called from file `dbg' line 6

The point is I don't want the subsequent co开发者_如何学JAVAde to be run, just return with specified value.

So it's not r.

This is obviously ghetto but you could wait until you pop back out of routine and then manually set the lvalue before proceeding in the calling routine.