Select Code to Download

main::((eval 8)[evals.pl:15]:1):

pp2@nereida:~/src/perl/testing$ cat -n evals.pl
     1  use strict;
...
    15  my $y = eval '$a+$b';
    16
    17  print "$y\n";

pp2@nereida:~/src/perl/testing$ perl -wd evals.pl

...
5:        $a+$b;
6
7       ;

  DB<3> c 15
Line 15 not breakable.

  DB<4> f evals.pl
1:      use strict;
...
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<7>