This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7d5a35627217c735f662de888d598923c034d3df
[perl5.git]
/
ext
/
Devel
/
DProf
/
t
/
test4.t
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
20
fork;
21
22
bar();
23
baz();
24
foo();