← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 05.Domain_and_Item.t
  Run on Tue May 4 17:21:41 2010
Reported on Tue May 4 17:23:14 2010

File /usr/local/lib/perl5/5.10.1/darwin-2level/Errno.pm
Statements Executed 52
Statement Execution Time 1.42ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
42197µs108µsErrno::::FETCHErrno::FETCH
11116µs34µsErrno::::BEGIN@162Errno::BEGIN@162
11110µs27µsErrno::::BEGIN@8Errno::BEGIN@8
11110µs10µsErrno::::BEGIN@7Errno::BEGIN@7
1117µs10µsErrno::::BEGIN@9Errno::BEGIN@9
1116µs6µsErrno::::TIEHASHErrno::TIEHASH
2126µs6µsErrno::::EISCONNErrno::EISCONN (xsub)
2125µs5µsErrno::::EINPROGRESSErrno::EINPROGRESS (xsub)
0000s0sErrno::::EXISTSErrno::EXISTS
0000s0sErrno::::FIRSTKEYErrno::FIRSTKEY
0000s0sErrno::::NEXTKEYErrno::NEXTKEY
0000s0sErrno::::STOREErrno::STORE
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#
2# This file is auto-generated. ***ANY*** changes here will be lost
3#
4
5package Errno;
61600nsour (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);
7321µs110µs
# spent 10µs within Errno::BEGIN@7 which was called # once (10µs+0s) by LWP::Protocol::http::BEGIN@216 at line 7
use Exporter ();
# spent 10µs making 1 call to Errno::BEGIN@7
8331µs244µs
# spent 27µs (10+17) within Errno::BEGIN@8 which was called # once (10µs+17µs) by LWP::Protocol::http::BEGIN@216 at line 8
use Config;
# spent 27µs making 1 call to Errno::BEGIN@8 # spent 17µs making 1 call to Config::import
93925µs212µs
# spent 10µs (7+3) within Errno::BEGIN@9 which was called # once (7µs+3µs) by LWP::Protocol::http::BEGIN@216 at line 9
use strict;
# spent 10µs making 1 call to Errno::BEGIN@9 # spent 2µs making 1 call to strict::import
10
11114µs28µs"$Config{'archname'}-$Config{'osvers'}" eq
# spent 8µs making 2 calls to Config::FETCH, avg 4µs/call
12"darwin-2level-10.2.0" or
13 die "Errno architecture (darwin-2level-10.2.0) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})";
14
151200ns$VERSION = "1.11";
16123µs$VERSION = eval $VERSION;
1716µs@ISA = qw(Exporter);
18
19124µs@EXPORT_OK = qw(EBADMACHO ENOMSG ELAST EROFS ENOTSUP ESHUTDOWN EAUTH
20 EMULTIHOP EPROTONOSUPPORT ENFILE ENOLCK EADDRINUSE ECONNABORTED EBADF
21 ECANCELED ENOTBLK EDEADLK ENOLINK ENOTDIR ETIME EINVAL ENOTTY EXDEV
22 ELOOP ECONNREFUSED ENOSTR EISCONN EOVERFLOW EFBIG ENOENT EPFNOSUPPORT
23 ECONNRESET EWOULDBLOCK EBADMSG EDOM EPROGMISMATCH EMSGSIZE ENOPOLICY
24 ERPCMISMATCH ENOSPC EIO ENOTSOCK EDESTADDRREQ EIDRM ERANGE EINPROGRESS
25 ENOBUFS EADDRNOTAVAIL EAFNOSUPPORT ENOSYS EINTR EPROCUNAVAIL EHOSTDOWN
26 EREMOTE EPWROFF EILSEQ ENOMEM ENOSR ENOTCONN ENETUNREACH EPIPE ESTALE
27 EPROGUNAVAIL ENODATA EDQUOT EUSERS EOPNOTSUPP EPROTO EFTYPE ESPIPE
28 EALREADY ENAMETOOLONG EMFILE EACCES ENOEXEC EISDIR EPROCLIM EBUSY
29 EBADEXEC E2BIG EPERM EEXIST ETOOMANYREFS ESHLIBVERS ESOCKTNOSUPPORT
30 ETIMEDOUT EDEVERR EBADARCH ENOATTR ENXIO ESRCH EBADRPC EFAULT ENODEV
31 ETXTBSY EAGAIN EMLINK ENOPROTOOPT ECHILD ENETDOWN EHOSTUNREACH
32 EPROTOTYPE ENEEDAUTH ENETRESET ENOTEMPTY);
33
34110µs%EXPORT_TAGS = (
35 POSIX => [qw(
36 E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
37 EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
38 EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
39 EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
40 EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
41 ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
42 ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
43 EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE
44 EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
45 ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
46 )]
47);
48
49sub EPERM () { 1 }
50sub ENOENT () { 2 }
51sub ESRCH () { 3 }
52sub EINTR () { 4 }
53sub EIO () { 5 }
54sub ENXIO () { 6 }
55sub E2BIG () { 7 }
56sub ENOEXEC () { 8 }
57sub EBADF () { 9 }
58sub ECHILD () { 10 }
59sub EDEADLK () { 11 }
60sub ENOMEM () { 12 }
61sub EACCES () { 13 }
62sub EFAULT () { 14 }
63sub ENOTBLK () { 15 }
64sub EBUSY () { 16 }
65sub EEXIST () { 17 }
66sub EXDEV () { 18 }
67sub ENODEV () { 19 }
68sub ENOTDIR () { 20 }
69sub EISDIR () { 21 }
70sub EINVAL () { 22 }
71sub ENFILE () { 23 }
72sub EMFILE () { 24 }
73sub ENOTTY () { 25 }
74sub ETXTBSY () { 26 }
75sub EFBIG () { 27 }
76sub ENOSPC () { 28 }
77sub ESPIPE () { 29 }
78sub EROFS () { 30 }
79sub EMLINK () { 31 }
80sub EPIPE () { 32 }
81sub EDOM () { 33 }
82sub ERANGE () { 34 }
83sub EWOULDBLOCK () { 35 }
84sub EAGAIN () { 35 }
85sub EINPROGRESS () { 36 }
86sub EALREADY () { 37 }
87sub ENOTSOCK () { 38 }
88sub EDESTADDRREQ () { 39 }
89sub EMSGSIZE () { 40 }
90sub EPROTOTYPE () { 41 }
91sub ENOPROTOOPT () { 42 }
92sub EPROTONOSUPPORT () { 43 }
93sub ESOCKTNOSUPPORT () { 44 }
94sub ENOTSUP () { 45 }
95sub EPFNOSUPPORT () { 46 }
96sub EAFNOSUPPORT () { 47 }
97sub EADDRINUSE () { 48 }
98sub EADDRNOTAVAIL () { 49 }
99sub ENETDOWN () { 50 }
100sub ENETUNREACH () { 51 }
101sub ENETRESET () { 52 }
102sub ECONNABORTED () { 53 }
103sub ECONNRESET () { 54 }
104sub ENOBUFS () { 55 }
105sub EISCONN () { 56 }
106sub ENOTCONN () { 57 }
107sub ESHUTDOWN () { 58 }
108sub ETOOMANYREFS () { 59 }
109sub ETIMEDOUT () { 60 }
110sub ECONNREFUSED () { 61 }
111sub ELOOP () { 62 }
112sub ENAMETOOLONG () { 63 }
113sub EHOSTDOWN () { 64 }
114sub EHOSTUNREACH () { 65 }
115sub ENOTEMPTY () { 66 }
116sub EPROCLIM () { 67 }
117sub EUSERS () { 68 }
118sub EDQUOT () { 69 }
119sub ESTALE () { 70 }
120sub EREMOTE () { 71 }
121sub EBADRPC () { 72 }
122sub ERPCMISMATCH () { 73 }
123sub EPROGUNAVAIL () { 74 }
124sub EPROGMISMATCH () { 75 }
125sub EPROCUNAVAIL () { 76 }
126sub ENOLCK () { 77 }
127sub ENOSYS () { 78 }
128sub EFTYPE () { 79 }
129sub EAUTH () { 80 }
130sub ENEEDAUTH () { 81 }
131sub EPWROFF () { 82 }
132sub EDEVERR () { 83 }
133sub EOVERFLOW () { 84 }
134sub EBADEXEC () { 85 }
135sub EBADARCH () { 86 }
136sub ESHLIBVERS () { 87 }
137sub EBADMACHO () { 88 }
138sub ECANCELED () { 89 }
139sub EIDRM () { 90 }
140sub ENOMSG () { 91 }
141sub EILSEQ () { 92 }
142sub ENOATTR () { 93 }
143sub EBADMSG () { 94 }
144sub EMULTIHOP () { 95 }
145sub ENODATA () { 96 }
146sub ENOLINK () { 97 }
147sub ENOSR () { 98 }
148sub ENOSTR () { 99 }
149sub EPROTO () { 100 }
150sub ETIME () { 101 }
151sub EOPNOTSUPP () { 102 }
152sub ELAST () { 103 }
153sub ENOPOLICY () { 103 }
154
155114µs
# spent 6µs within Errno::TIEHASH which was called # once (6µs+0s) by LWP::Protocol::http::BEGIN@216 at line 198
sub TIEHASH { bless [] }
156
157
# spent 108µs (97+11) within Errno::FETCH which was called 4 times, avg 27µs/call: # 2 times (51µs+6µs) by IO::Socket::connect at line 121 of IO/Socket.pm, avg 28µs/call # 2 times (46µs+5µs) by IO::Socket::connect at line 115 of IO/Socket.pm, avg 26µs/call
sub FETCH {
15847µs my ($self, $errname) = @_;
159426µs my $proto = prototype("Errno::$errname");
16042µs my $errno = "";
16146µs if (defined($proto) && $proto eq "") {
1623183µs252µs
# spent 34µs (16+18) within Errno::BEGIN@162 which was called # once (16µs+18µs) by LWP::Protocol::http::BEGIN@216 at line 162
no strict 'refs';
# spent 34µs making 1 call to Errno::BEGIN@162 # spent 18µs making 1 call to strict::unimport
163434µs411µs $errno = &$errname;
# spent 6µs making 2 calls to Errno::EISCONN, avg 3µs/call # spent 5µs making 2 calls to Errno::EINPROGRESS, avg 3µs/call
164416µs $errno = 0 unless $! == $errno;
165 }
166420µs return $errno;
167}
168
169sub STORE {
170 require Carp;
171 Carp::confess("ERRNO hash is read only!");
172}
173
1741900ns*CLEAR = \&STORE;
1751300ns*DELETE = \&STORE;
176
177sub NEXTKEY {
178 my($k,$v);
179 while(($k,$v) = each %Errno::) {
180 my $proto = prototype("Errno::$k");
181 last if (defined($proto) && $proto eq "");
182 }
183 $k
184}
185
186sub FIRSTKEY {
187 my $s = scalar keys %Errno::; # initialize iterator
188 goto &NEXTKEY;
189}
190
191sub EXISTS {
192 my ($self, $errname) = @_;
193 my $r = ref $errname;
194 my $proto = !$r || $r eq 'CODE' ? prototype($errname) : undef;
195 defined($proto) && $proto eq "";
196}
197
19813µs16µstie %!, __PACKAGE__;
# spent 6µs making 1 call to Errno::TIEHASH
199
200152µs1;
201__END__
202
203=head1 NAME
204
205Errno - System errno constants
206
207=head1 SYNOPSIS
208
209 use Errno qw(EINTR EIO :POSIX);
210
211=head1 DESCRIPTION
212
213C<Errno> defines and conditionally exports all the error constants
214defined in your system C<errno.h> include file. It has a single export
215tag, C<:POSIX>, which will export all POSIX defined error numbers.
216
217C<Errno> also makes C<%!> magic such that each element of C<%!> has a
218non-zero value only if C<$!> is set to that value. For example:
219
220 use Errno;
221
222 unless (open(FH, "/fangorn/spouse")) {
223 if ($!{ENOENT}) {
224 warn "Get a wife!\n";
225 } else {
226 warn "This path is barred: $!";
227 }
228 }
229
230If a specified constant C<EFOO> does not exist on the system, C<$!{EFOO}>
231returns C<"">. You may use C<exists $!{EFOO}> to check whether the
232constant is available on the system.
233
234=head1 CAVEATS
235
236Importing a particular constant may not be very portable, because the
237import will fail on platforms that do not have that constant. A more
238portable way to set C<$!> to a valid value is to use:
239
240 if (exists &Errno::EFOO) {
241 $! = &Errno::EFOO;
242 }
243
244=head1 AUTHOR
245
246Graham Barr <gbarr@pobox.com>
247
248=head1 COPYRIGHT
249
250Copyright (c) 1997-8 Graham Barr. All rights reserved.
251This program is free software; you can redistribute it and/or modify it
252under the same terms as Perl itself.
253
254=cut
255
# spent 5µs within Errno::EINPROGRESS which was called 2 times, avg 3µs/call: # 2 times (5µs+0s) by Errno::FETCH at line 163 of Errno.pm, avg 3µs/call
sub Errno::EINPROGRESS; # xsub
# spent 6µs within Errno::EISCONN which was called 2 times, avg 3µs/call: # 2 times (6µs+0s) by Errno::FETCH at line 163 of Errno.pm, avg 3µs/call
sub Errno::EISCONN; # xsub