← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:11:21 2013

Filename/usr/lib/perl/5.10/Fcntl.pm
StatementsExecuted 18 statements in 1.43ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11117µs22µsFcntl::::BEGIN@3Fcntl::BEGIN@3
11116µs40µsFcntl::::BEGIN@184Fcntl::BEGIN@184
11111µs342µsFcntl::::BEGIN@159Fcntl::BEGIN@159
1115µs5µsFcntl::::BEGIN@7Fcntl::BEGIN@7
1114µs4µsFcntl::::BEGIN@9Fcntl::BEGIN@9
0000s0sFcntl::::AUTOLOADFcntl::AUTOLOAD
0000s0sFcntl::::S_IFMTFcntl::S_IFMT
0000s0sFcntl::::S_IMODEFcntl::S_IMODE
0000s0sFcntl::::S_ISBLKFcntl::S_ISBLK
0000s0sFcntl::::S_ISCHRFcntl::S_ISCHR
0000s0sFcntl::::S_ISDIRFcntl::S_ISDIR
0000s0sFcntl::::S_ISENFMTFcntl::S_ISENFMT
0000s0sFcntl::::S_ISFIFOFcntl::S_ISFIFO
0000s0sFcntl::::S_ISLNKFcntl::S_ISLNK
0000s0sFcntl::::S_ISREGFcntl::S_ISREG
0000s0sFcntl::::S_ISSOCKFcntl::S_ISSOCK
0000s0sFcntl::::S_ISWHTFcntl::S_ISWHT
0000s0sFcntl::::__ANON__[:185]Fcntl::__ANON__[:185]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Fcntl;
2
3358µs228µs
# spent 22µs (17+5) within Fcntl::BEGIN@3 which was called: # once (17µs+5µs) by IO::Seekable::BEGIN@12 at line 3
use strict;
# spent 22µs making 1 call to Fcntl::BEGIN@3 # spent 5µs making 1 call to strict::import
412µsour($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
5
611µsrequire Exporter;
7336µs15µs
# spent 5µs within Fcntl::BEGIN@7 which was called: # once (5µs+0s) by IO::Seekable::BEGIN@12 at line 7
use XSLoader ();
# spent 5µs making 1 call to Fcntl::BEGIN@7
8115µs@ISA = qw(Exporter);
9
# spent 4µs within Fcntl::BEGIN@9 which was called: # once (4µs+0s) by IO::Seekable::BEGIN@12 at line 11
BEGIN {
1014µs $VERSION = "1.06";
111221µs14µs}
# spent 4µs making 1 call to Fcntl::BEGIN@9
12
13# Items to export into callers namespace by default
14# (move infrequently used names to @EXPORT_OK below)
15116µs@EXPORT =
16 qw(
17 FD_CLOEXEC
18 F_ALLOCSP
19 F_ALLOCSP64
20 F_COMPAT
21 F_DUP2FD
22 F_DUPFD
23 F_EXLCK
24 F_FREESP
25 F_FREESP64
26 F_FSYNC
27 F_FSYNC64
28 F_GETFD
29 F_GETFL
30 F_GETLK
31 F_GETLK64
32 F_GETOWN
33 F_NODNY
34 F_POSIX
35 F_RDACC
36 F_RDDNY
37 F_RDLCK
38 F_RWACC
39 F_RWDNY
40 F_SETFD
41 F_SETFL
42 F_SETLK
43 F_SETLK64
44 F_SETLKW
45 F_SETLKW64
46 F_SETOWN
47 F_SHARE
48 F_SHLCK
49 F_UNLCK
50 F_UNSHARE
51 F_WRACC
52 F_WRDNY
53 F_WRLCK
54 O_ACCMODE
55 O_ALIAS
56 O_APPEND
57 O_ASYNC
58 O_BINARY
59 O_CREAT
60 O_DEFER
61 O_DIRECT
62 O_DIRECTORY
63 O_DSYNC
64 O_EXCL
65 O_EXLOCK
66 O_LARGEFILE
67 O_NDELAY
68 O_NOCTTY
69 O_NOFOLLOW
70 O_NOINHERIT
71 O_NONBLOCK
72 O_RANDOM
73 O_RAW
74 O_RDONLY
75 O_RDWR
76 O_RSRC
77 O_RSYNC
78 O_SEQUENTIAL
79 O_SHLOCK
80 O_SYNC
81 O_TEMPORARY
82 O_TEXT
83 O_TRUNC
84 O_WRONLY
85 );
86
87# Other items we are prepared to export if requested
88128µs@EXPORT_OK = qw(
89 DN_ACCESS
90 DN_ATTRIB
91 DN_CREATE
92 DN_DELETE
93 DN_MODIFY
94 DN_MULTISHOT
95 DN_RENAME
96 FAPPEND
97 FASYNC
98 FCREAT
99 FDEFER
100 FDSYNC
101 FEXCL
102 FLARGEFILE
103 FNDELAY
104 FNONBLOCK
105 FRSYNC
106 FSYNC
107 FTRUNC
108 F_GETLEASE
109 F_GETSIG
110 F_NOTIFY
111 F_SETLEASE
112 F_SETSIG
113 LOCK_EX
114 LOCK_MAND
115 LOCK_NB
116 LOCK_READ
117 LOCK_RW
118 LOCK_SH
119 LOCK_UN
120 LOCK_WRITE
121 O_IGNORE_CTTY
122 O_NOATIME
123 O_NOLINK
124 O_NOTRANS
125 SEEK_CUR
126 SEEK_END
127 SEEK_SET
128 S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
129 S_IREAD S_IWRITE S_IEXEC
130 S_IRGRP S_IWGRP S_IXGRP S_IRWXG
131 S_IROTH S_IWOTH S_IXOTH S_IRWXO
132 S_IRUSR S_IWUSR S_IXUSR S_IRWXU
133 S_ISUID S_ISGID S_ISVTX S_ISTXT
134 _S_IFMT S_IFREG S_IFDIR S_IFLNK
135 &S_ISREG &S_ISDIR &S_ISLNK &S_ISSOCK &S_ISBLK &S_ISCHR &S_ISFIFO
136 &S_ISWHT &S_ISENFMT &S_IFMT &S_IMODE
137);
138# Named groups of exports
139125µs%EXPORT_TAGS = (
140 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
141 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
142 FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
143 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)],
144 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
145 _S_IFMT S_IFREG S_IFDIR S_IFLNK
146 S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
147 S_IRUSR S_IWUSR S_IXUSR S_IRWXU
148 S_IRGRP S_IWGRP S_IXGRP S_IRWXG
149 S_IROTH S_IWOTH S_IXOTH S_IRWXO
150 S_IREAD S_IWRITE S_IEXEC
151 S_ISREG S_ISDIR S_ISLNK S_ISSOCK
152 S_ISBLK S_ISCHR S_ISFIFO
153 S_ISWHT S_ISENFMT
154 S_IFMT S_IMODE
155 )],
156);
157
158# Force the constants to become inlined
159
# spent 342µs (11+331) within Fcntl::BEGIN@159 which was called: # once (11µs+331µs) by IO::Seekable::BEGIN@12 at line 161
BEGIN {
1601341µs1331µs XSLoader::load 'Fcntl', $VERSION;
# spent 331µs making 1 call to XSLoader::load
1611505µs1342µs}
# spent 342µs making 1 call to Fcntl::BEGIN@159
162
163sub S_IFMT { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT() }
164sub S_IMODE { $_[0] & 07777 }
165
166sub S_ISREG { ( $_[0] & _S_IFMT() ) == S_IFREG() }
167sub S_ISDIR { ( $_[0] & _S_IFMT() ) == S_IFDIR() }
168sub S_ISLNK { ( $_[0] & _S_IFMT() ) == S_IFLNK() }
169sub S_ISSOCK { ( $_[0] & _S_IFMT() ) == S_IFSOCK() }
170sub S_ISBLK { ( $_[0] & _S_IFMT() ) == S_IFBLK() }
171sub S_ISCHR { ( $_[0] & _S_IFMT() ) == S_IFCHR() }
172sub S_ISFIFO { ( $_[0] & _S_IFMT() ) == S_IFIFO() }
173sub S_ISWHT { ( $_[0] & _S_IFMT() ) == S_IFWHT() }
174sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() }
175
176sub AUTOLOAD {
177 (my $constname = $AUTOLOAD) =~ s/.*:://;
178 die "&Fcntl::constant not defined" if $constname eq 'constant';
179 my ($error, $val) = constant($constname);
180 if ($error) {
181 my (undef,$file,$line) = caller;
182 die "$error at $file line $line.\n";
183 }
1843140µs265µs
# spent 40µs (16+25) within Fcntl::BEGIN@184 which was called: # once (16µs+25µs) by IO::Seekable::BEGIN@12 at line 184
no strict 'refs';
# spent 40µs making 1 call to Fcntl::BEGIN@184 # spent 25µs making 1 call to strict::unimport
185 *$AUTOLOAD = sub { $val };
186 goto &$AUTOLOAD;
187}
188
189137µs1;