The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MJD / Devel-Trace-0.12 / sample 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14

              
#!/usr/bin/perl
print "Statement 1 at line 4\n";
print "Statement 2 at line 5\n";
print "Call to sub x returns ", &x(), " at line 6.\n";
exit 0;
sub x {
  print "In sub x at line 12.\n";
  return 13;
}