← 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 11:58:52 2013
Reported on Tue Oct 15 12:02:18 2013

Filename/usr/lib/perl/5.10/Socket.pm
StatementsExecuted 22 statements in 1.04ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11123µs98µsSocket::::BEGIN@6Socket::BEGIN@6
11113µs101µsSocket::::BEGIN@7Socket::BEGIN@7
1116µs6µsSocket::::BEGIN@10Socket::BEGIN@10
1115µs5µsSocket::::BEGIN@193Socket::BEGIN@193
0000s0sSocket::::AUTOLOADSocket::AUTOLOAD
0000s0sSocket::::__ANON__[:236]Socket::__ANON__[:236]
0000s0sSocket::::sockaddr_inSocket::sockaddr_in
0000s0sSocket::::sockaddr_unSocket::sockaddr_un
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Socket;
2
31900nsour($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
41800ns$VERSION = "1.82";
5
6335µs2173µs
# spent 98µs (23+75) within Socket::BEGIN@6 which was called: # once (23µs+75µs) by Mail::Sendmail::BEGIN@54 at line 6
use Carp;
# spent 98µs making 1 call to Socket::BEGIN@6 # spent 75µs making 1 call to Exporter::import
7336µs2190µs
# spent 101µs (13+89) within Socket::BEGIN@7 which was called: # once (13µs+89µs) by Mail::Sendmail::BEGIN@54 at line 7
use warnings::register;
# spent 101µs making 1 call to Socket::BEGIN@7 # spent 89µs making 1 call to warnings::register::import
8
91900nsrequire Exporter;
103273µs16µs
# spent 6µs within Socket::BEGIN@10 which was called: # once (6µs+0s) by Mail::Sendmail::BEGIN@54 at line 10
use XSLoader ();
# spent 6µs making 1 call to Socket::BEGIN@10
1118µs@ISA = qw(Exporter);
12130µs@EXPORT = qw(
13 inet_aton inet_ntoa
14 sockaddr_family
15 pack_sockaddr_in unpack_sockaddr_in
16 pack_sockaddr_un unpack_sockaddr_un
17 sockaddr_in sockaddr_un
18 INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE
19 AF_802
20 AF_AAL
21 AF_APPLETALK
22 AF_CCITT
23 AF_CHAOS
24 AF_CTF
25 AF_DATAKIT
26 AF_DECnet
27 AF_DLI
28 AF_ECMA
29 AF_GOSIP
30 AF_HYLINK
31 AF_IMPLINK
32 AF_INET
33 AF_INET6
34 AF_ISO
35 AF_KEY
36 AF_LAST
37 AF_LAT
38 AF_LINK
39 AF_MAX
40 AF_NBS
41 AF_NIT
42 AF_NS
43 AF_OSI
44 AF_OSINET
45 AF_PUP
46 AF_ROUTE
47 AF_SNA
48 AF_UNIX
49 AF_UNSPEC
50 AF_USER
51 AF_WAN
52 AF_X25
53 IOV_MAX
54 IP_OPTIONS
55 IP_HDRINCL
56 IP_TOS
57 IP_TTL
58 IP_RECVOPTS
59 IP_RECVRETOPTS
60 IP_RETOPTS
61 MSG_BCAST
62 MSG_BTAG
63 MSG_CTLFLAGS
64 MSG_CTLIGNORE
65 MSG_CTRUNC
66 MSG_DONTROUTE
67 MSG_DONTWAIT
68 MSG_EOF
69 MSG_EOR
70 MSG_ERRQUEUE
71 MSG_ETAG
72 MSG_FIN
73 MSG_MAXIOVLEN
74 MSG_MCAST
75 MSG_NOSIGNAL
76 MSG_OOB
77 MSG_PEEK
78 MSG_PROXY
79 MSG_RST
80 MSG_SYN
81 MSG_TRUNC
82 MSG_URG
83 MSG_WAITALL
84 MSG_WIRE
85 PF_802
86 PF_AAL
87 PF_APPLETALK
88 PF_CCITT
89 PF_CHAOS
90 PF_CTF
91 PF_DATAKIT
92 PF_DECnet
93 PF_DLI
94 PF_ECMA
95 PF_GOSIP
96 PF_HYLINK
97 PF_IMPLINK
98 PF_INET
99 PF_INET6
100 PF_ISO
101 PF_KEY
102 PF_LAST
103 PF_LAT
104 PF_LINK
105 PF_MAX
106 PF_NBS
107 PF_NIT
108 PF_NS
109 PF_OSI
110 PF_OSINET
111 PF_PUP
112 PF_ROUTE
113 PF_SNA
114 PF_UNIX
115 PF_UNSPEC
116 PF_USER
117 PF_WAN
118 PF_X25
119 SCM_CONNECT
120 SCM_CREDENTIALS
121 SCM_CREDS
122 SCM_RIGHTS
123 SCM_TIMESTAMP
124 SHUT_RD
125 SHUT_RDWR
126 SHUT_WR
127 SOCK_DGRAM
128 SOCK_RAW
129 SOCK_RDM
130 SOCK_SEQPACKET
131 SOCK_STREAM
132 SOL_SOCKET
133 SOMAXCONN
134 SO_ACCEPTCONN
135 SO_ATTACH_FILTER
136 SO_BACKLOG
137 SO_BROADCAST
138 SO_CHAMELEON
139 SO_DEBUG
140 SO_DETACH_FILTER
141 SO_DGRAM_ERRIND
142 SO_DONTLINGER
143 SO_DONTROUTE
144 SO_ERROR
145 SO_FAMILY
146 SO_KEEPALIVE
147 SO_LINGER
148 SO_OOBINLINE
149 SO_PASSCRED
150 SO_PASSIFNAME
151 SO_PEERCRED
152 SO_PROTOCOL
153 SO_PROTOTYPE
154 SO_RCVBUF
155 SO_RCVLOWAT
156 SO_RCVTIMEO
157 SO_REUSEADDR
158 SO_REUSEPORT
159 SO_SECURITY_AUTHENTICATION
160 SO_SECURITY_ENCRYPTION_NETWORK
161 SO_SECURITY_ENCRYPTION_TRANSPORT
162 SO_SNDBUF
163 SO_SNDLOWAT
164 SO_SNDTIMEO
165 SO_STATE
166 SO_TYPE
167 SO_USELOOPBACK
168 SO_XOPEN
169 SO_XSE
170 UIO_MAXIOV
171);
172
17312µs@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF
174
175 IPPROTO_IP
176 IPPROTO_IPV6
177 IPPROTO_RAW
178 IPPROTO_ICMP
179 IPPROTO_TCP
180 IPPROTO_UDP
181
182 TCP_KEEPALIVE
183 TCP_MAXRT
184 TCP_MAXSEG
185 TCP_NODELAY
186 TCP_STDURG);
187
188127µs%EXPORT_TAGS = (
189 crlf => [qw(CR LF CRLF $CR $LF $CRLF)],
190 all => [@EXPORT, @EXPORT_OK],
191);
192
19316µs
# spent 5µs within Socket::BEGIN@193 which was called: # once (5µs+0s) by Mail::Sendmail::BEGIN@54 at line 197
BEGIN {
194 sub CR () {"\015"}
195 sub LF () {"\012"}
196 sub CRLF () {"\015\012"}
1971292µs15µs}
# spent 5µs making 1 call to Socket::BEGIN@193
198
1991700ns*CR = \CR();
2001300ns*LF = \LF();
2011200ns*CRLF = \CRLF();
202
203sub sockaddr_in {
204 if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
205 my($af, $port, @quad) = @_;
206 warnings::warn "6-ARG sockaddr_in call is deprecated"
207 if warnings::enabled();
208 pack_sockaddr_in($port, inet_aton(join('.', @quad)));
209 } elsif (wantarray) {
210 croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1;
211 unpack_sockaddr_in(@_);
212 } else {
213 croak "usage: sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
214 pack_sockaddr_in(@_);
215 }
216}
217
218sub sockaddr_un {
219 if (wantarray) {
220 croak "usage: (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
221 unpack_sockaddr_un(@_);
222 } else {
223 croak "usage: sun_sv = sockaddr_un(filename)" unless @_ == 1;
224 pack_sockaddr_un(@_);
225 }
226}
227
228sub AUTOLOAD {
229 my($constname);
230 ($constname = $AUTOLOAD) =~ s/.*:://;
231 croak "&Socket::constant not defined" if $constname eq 'constant';
232 my ($error, $val) = constant($constname);
233 if ($error) {
234 croak $error;
235 }
236 *$AUTOLOAD = sub { $val };
237 goto &$AUTOLOAD;
238}
239
2401298µs1289µsXSLoader::load 'Socket', $VERSION;
# spent 289µs making 1 call to XSLoader::load
241
242126µs1;