test3_t

来自「UNIX下perl实现代码」· 代码 · 共 20 行

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

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

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

bar();
baz();
foo();