File: test13.x

package info (click to toggle)
libdevel-nytprof-perl 5.06%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,396 kB
  • ctags: 1,413
  • sloc: perl: 4,905; ansic: 101; sh: 54; makefile: 17
file content (24 lines) | stat: -rw-r--r-- 844 bytes parent folder | download | duplicates (3)
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://search.cpan.org/dist/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();