1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
# Profile data generated by Devel::NYTProf::Reader
# More information at http://metacpan.org/release/Devel-NYTProf/
# Format: time,calls,time/call,code
0,0,0,# tests loops. noop is a hack for perl>5.6 where
0,0,0,# the closing "}" of a loop counts as being executed if loop is empty.
0,0,0,
0,1,0,my $_z;
0,0,0,sub noop {
0,410,0,$_z++;
0,0,0,}
0,0,0,
0,0,0,sub foo {
0,1,0,print "in sub foo\n";
0,1,0,foreach (1 .. 10) {
0,10,0,noop();
0,10,0,foreach (1 .. 10) {
0,100,0,noop();
0,0,0,}
0,0,0,}
0,0,0,}
0,0,0,
0,0,0,sub bar {
0,1,0,print "in sub bar\n";
0,1,0,my ($x, $y);
0,1,0,while (10 > $x++) {
0,10,0,$y = 0;
0,10,0,while (10 > $y++) {
0,100,0,noop();
0,0,0,}
0,0,0,}
0,0,0,}
0,0,0,
0,0,0,sub baz {
0,1,0,print "in sub baz\n";
0,1,0,my ($x, $y) = (1);
0,1,0,do {
0,10,0,$y = 1;
0,10,0,do {
0,100,0,noop();
0,100,0,noop();
0,0,0,} while(10 > $y++);
0,0,0,} while(10 > $x++);
0,0,0,}
0,0,0,
0,1,0,foo();
0,1,0,bar();
0,1,0,baz();
|
