(though I don't recommend hard-coding linenumbers there, use $DB::single=1 to set a breakpoint in place)
runs asuse strict; use warnings; push @DB::typeahead, 'b 19 $y==3', '{ X y' if exists &DB::DB; $|=1; my $a; our $y; for (0..10) { print; $a++; $y++; }
DB<22> c 0123auto(-3) DB<22> X y $y = 3 auto(-2) DB<23> b 19 $y==3 auto(-1) DB<24> { X y DB<25> c 45678910auto(-1) DB<25> X y DB<26>
Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!
In reply to Re^4: How can I print variable contents from the debugger non-interactively? (@DB::typeahead)
by LanX
in thread How can I print variable contents from the debugger non-interactively?
by davehorner
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |