xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/test4_t (revision 0:68f95e015346) 
1sub foo {
2	print "in sub foo\n";
3	bar();
4}
5
6sub bar {
7	print "in sub bar\n";
8}
9
10sub baz {
11	print "in sub baz\n";
12	bar();
13	bar();
14	bar();
15	foo();
16}
17
18bar();
19
20eval { fork };
21
22bar();
23baz();
24foo();
25