projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
add Devel::DProf v19990108 from CPAN, as it was
[p5sagit/p5-mst-13.2.git]
/
ext
/
Devel
/
DProf
/
t
/
test1.pl
1
END { print "main:: the end\n" }
2
sub FOO::END { print "foo:: the end\n" }
3
4
5
sub foo {
6
my $x;
7
my $y;
8
print "in sub foo\n";
9
for( $x = 1; $x < 100; ++$x ){
10
bar();
11
for( $y = 1; $y < 100; ++$y ){
12
}
13
}
14
}
15
16
sub bar {
17
my $x;
18
print "in sub bar\n";
19
for( $x = 1; $x < 100; ++$x ){
20
}
21
}
22
23
sub baz {
24
print "in sub baz\n";
25
bar();
26
foo();
27
}
28
29
bar();
30
baz();
31
foo();
32