File: sample

package info (click to toggle)
libdevel-trace-perl 0.12-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, jessie, jessie-kfreebsd, sid, stretch, wheezy
  • size: 84 kB
  • ctags: 7
  • sloc: perl: 49; makefile: 7
file content (14 lines) | stat: -rwxr-xr-x 206 bytes parent folder | download
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;
}