File: test13.x

package info (click to toggle)
libdevel-nytprof-perl 6.12%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 2,552 kB
  • sloc: perl: 5,616; javascript: 4,033; ansic: 107; makefile: 23
file content (24 lines) | stat: -rw-r--r-- 844 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# 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,# Testing various types of eval calls. Some are processed differently internally
0,0,0,
0,0,0,sub foo {
0,3,0,print "in sub foo\n";
0,0,0,}
0,0,0,
0,0,0,sub bar {
0,1,0,print "in sub bar\n";
0,0,0,}
0,0,0,
0,0,0,sub baz {
0,1,0,print "in sub baz\n";
0,2,0,eval { foo();    # two stmts executed on this line (eval + foo() call)
0,1,0,foo(); }; # one stmt  executed on this line
0,2,0,eval { x();      # two stmts executed on this line (eval + x() call), fails out of eval
0,0,0,x(); };   # zero stmts because previous statement threw an exception
0,0,0,}
0,0,0,
0,1,0,eval "foo();";     # one stmt in this fid, one statement in eval fid
0,2,0,eval { bar(); };   # two stmts
0,1,0,baz();