[perl5.git] / ext / Devel / DProf / t / test2.t

sub foo {
	print "in sub foo\n";
	bar();
}

sub bar {
	print "in sub bar\n";
}

sub baz {
	print "in sub baz\n";
	bar();
	bar();
	bar();
	foo();
}

bar();
bar();
baz();
foo();
Commit	Line	Data
583a019e GS	1	sub foo {
	2	print "in sub foo\n";
	3	bar();
	4	}
	5
	6	sub bar {
	7	print "in sub bar\n";
	8	}
	9
	10	sub baz {
	11	print "in sub baz\n";
	12	bar();
	13	bar();
	14	bar();
	15	foo();
	16	}
	17
	18	bar();
	19	bar();
	20	baz();
	21	foo();