Filename	/usr/lib/perl/5.10/Errno.pm
Statements	Executed 20 statements in 2.84ms

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	66µs	66µs	Errno::::BEGIN@7Errno::BEGIN@7
1	1	1	21µs	21µs	Errno::::TIEHASHErrno::TIEHASH
1	1	1	20µs	27µs	Errno::::BEGIN@8Errno::BEGIN@8
1	1	1	18µs	55µs	Errno::::BEGIN@188Errno::BEGIN@188
0	0	0	0s	0s	Errno::::EXISTSErrno::EXISTS
0	0	0	0s	0s	Errno::::FETCHErrno::FETCH
0	0	0	0s	0s	Errno::::FIRSTKEYErrno::FIRSTKEY
0	0	0	0s	0s	Errno::::NEXTKEYErrno::NEXTKEY
0	0	0	0s	0s	Errno::::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
5					package Errno;
6	1	2µs			our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);
7	3	49µs	1	66µs	# spent 66µs within Errno::BEGIN@7 which was called: # once (66µs+0s) by IO::Socket::BEGIN@17 at line 7 use Exporter (); # spent 66µs making 1 call to Errno::BEGIN@7
8	3	2.25ms	2	34µs	# spent 27µs (20+7) within Errno::BEGIN@8 which was called: # once (20µs+7µs) by IO::Socket::BEGIN@17 at line 8 use strict; # spent 27µs making 1 call to Errno::BEGIN@8 # spent 7µs making 1 call to strict::import
9
10	1	2µs			$VERSION = "1.11";
11	1	39µs			$VERSION = eval $VERSION; # spent 6µs executing statements in string eval
12	1	20µs			@ISA = qw(Exporter);
13
14	1	41µs			@EXPORT_OK = qw(EBADR ENOMSG ENOTSUP ESTRPIPE EADDRINUSE EL3HLT EBADF
15					ENOTBLK ENAVAIL ECHRNG ENOTNAM ELNRNG ENOKEY EXDEV EBADE EBADSLT
16					ECONNREFUSED ENOSTR ENONET EOVERFLOW EISCONN EFBIG EKEYREVOKED
17					ECONNRESET EWOULDBLOCK ELIBMAX EREMOTEIO ERFKILL ENOPKG ELIBSCN
18					EDESTADDRREQ ENOTSOCK EIO EMEDIUMTYPE EINPROGRESS ERANGE EAFNOSUPPORT
19					EADDRNOTAVAIL EINTR EREMOTE EILSEQ ENOMEM EPIPE ENETUNREACH ENODATA
20					EUSERS EOPNOTSUPP EPROTO EISNAM ESPIPE EALREADY ENAMETOOLONG ENOEXEC
21					EISDIR EBADRQC EEXIST EDOTDOT ELIBBAD EOWNERDEAD ESRCH EFAULT EXFULL
22					EDEADLOCK EAGAIN ENOPROTOOPT ENETDOWN EPROTOTYPE EL2NSYNC ENETRESET
23					EUCLEAN EADV EROFS ESHUTDOWN EMULTIHOP EPROTONOSUPPORT ENFILE ENOLCK
24					ECONNABORTED ECANCELED EDEADLK ESRMNT ENOLINK ETIME ENOTDIR EINVAL
25					ENOTTY ENOANO ELOOP ENOENT EPFNOSUPPORT EBADMSG ENOMEDIUM EL2HLT EDOM
26					EBFONT EKEYEXPIRED EMSGSIZE ENOCSI EL3RST ENOSPC EIDRM ENOBUFS ENOSYS
27					EHOSTDOWN EBADFD ENOSR ENOTCONN ESTALE EDQUOT EKEYREJECTED EMFILE
28					ENOTRECOVERABLE EACCES EBUSY E2BIG EPERM ELIBEXEC ETOOMANYREFS ELIBACC
29					ENOTUNIQ ECOMM ERESTART ESOCKTNOSUPPORT EUNATCH ETIMEDOUT ENXIO ENODEV
30					ETXTBSY EMLINK ECHILD EHOSTUNREACH EREMCHG ENOTEMPTY);
31
32	1	19µs			%EXPORT_TAGS = (
33					POSIX => [qw(
34					E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
35					EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
36					EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
37					EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
38					EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
39					ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
40					ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
41					EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART
42					EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
43					ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
44					)]
45					);
46
47					sub EPERM () { 1 }
48					sub ENOENT () { 2 }
49					sub ESRCH () { 3 }
50					sub EINTR () { 4 }
51					sub EIO () { 5 }
52					sub ENXIO () { 6 }
53					sub E2BIG () { 7 }
54					sub ENOEXEC () { 8 }
55					sub EBADF () { 9 }
56					sub ECHILD () { 10 }
57					sub EWOULDBLOCK () { 11 }
58					sub EAGAIN () { 11 }
59					sub ENOMEM () { 12 }
60					sub EACCES () { 13 }
61					sub EFAULT () { 14 }
62					sub ENOTBLK () { 15 }
63					sub EBUSY () { 16 }
64					sub EEXIST () { 17 }
65					sub EXDEV () { 18 }
66					sub ENODEV () { 19 }
67					sub ENOTDIR () { 20 }
68					sub EISDIR () { 21 }
69					sub EINVAL () { 22 }
70					sub ENFILE () { 23 }
71					sub EMFILE () { 24 }
72					sub ENOTTY () { 25 }
73					sub ETXTBSY () { 26 }
74					sub EFBIG () { 27 }
75					sub ENOSPC () { 28 }
76					sub ESPIPE () { 29 }
77					sub EROFS () { 30 }
78					sub EMLINK () { 31 }
79					sub EPIPE () { 32 }
80					sub EDOM () { 33 }
81					sub ERANGE () { 34 }
82					sub EDEADLOCK () { 35 }
83					sub EDEADLK () { 35 }
84					sub ENAMETOOLONG () { 36 }
85					sub ENOLCK () { 37 }
86					sub ENOSYS () { 38 }
87					sub ENOTEMPTY () { 39 }
88					sub ELOOP () { 40 }
89					sub ENOMSG () { 42 }
90					sub EIDRM () { 43 }
91					sub ECHRNG () { 44 }
92					sub EL2NSYNC () { 45 }
93					sub EL3HLT () { 46 }
94					sub EL3RST () { 47 }
95					sub ELNRNG () { 48 }
96					sub EUNATCH () { 49 }
97					sub ENOCSI () { 50 }
98					sub EL2HLT () { 51 }
99					sub EBADE () { 52 }
100					sub EBADR () { 53 }
101					sub EXFULL () { 54 }
102					sub ENOANO () { 55 }
103					sub EBADRQC () { 56 }
104					sub EBADSLT () { 57 }
105					sub EBFONT () { 59 }
106					sub ENOSTR () { 60 }
107					sub ENODATA () { 61 }
108					sub ETIME () { 62 }
109					sub ENOSR () { 63 }
110					sub ENONET () { 64 }
111					sub ENOPKG () { 65 }
112					sub EREMOTE () { 66 }
113					sub ENOLINK () { 67 }
114					sub EADV () { 68 }
115					sub ESRMNT () { 69 }
116					sub ECOMM () { 70 }
117					sub EPROTO () { 71 }
118					sub EMULTIHOP () { 72 }
119					sub EDOTDOT () { 73 }
120					sub EBADMSG () { 74 }
121					sub EOVERFLOW () { 75 }
122					sub ENOTUNIQ () { 76 }
123					sub EBADFD () { 77 }
124					sub EREMCHG () { 78 }
125					sub ELIBACC () { 79 }
126					sub ELIBBAD () { 80 }
127					sub ELIBSCN () { 81 }
128					sub ELIBMAX () { 82 }
129					sub ELIBEXEC () { 83 }
130					sub EILSEQ () { 84 }
131					sub ERESTART () { 85 }
132					sub ESTRPIPE () { 86 }
133					sub EUSERS () { 87 }
134					sub ENOTSOCK () { 88 }
135					sub EDESTADDRREQ () { 89 }
136					sub EMSGSIZE () { 90 }
137					sub EPROTOTYPE () { 91 }
138					sub ENOPROTOOPT () { 92 }
139					sub EPROTONOSUPPORT () { 93 }
140					sub ESOCKTNOSUPPORT () { 94 }
141					sub ENOTSUP () { 95 }
142					sub EOPNOTSUPP () { 95 }
143					sub EPFNOSUPPORT () { 96 }
144					sub EAFNOSUPPORT () { 97 }
145					sub EADDRINUSE () { 98 }
146					sub EADDRNOTAVAIL () { 99 }
147					sub ENETDOWN () { 100 }
148					sub ENETUNREACH () { 101 }
149					sub ENETRESET () { 102 }
150					sub ECONNABORTED () { 103 }
151					sub ECONNRESET () { 104 }
152					sub ENOBUFS () { 105 }
153					sub EISCONN () { 106 }
154					sub ENOTCONN () { 107 }
155					sub ESHUTDOWN () { 108 }
156					sub ETOOMANYREFS () { 109 }
157					sub ETIMEDOUT () { 110 }
158					sub ECONNREFUSED () { 111 }
159					sub EHOSTDOWN () { 112 }
160					sub EHOSTUNREACH () { 113 }
161					sub EALREADY () { 114 }
162					sub EINPROGRESS () { 115 }
163					sub ESTALE () { 116 }
164					sub EUCLEAN () { 117 }
165					sub ENOTNAM () { 118 }
166					sub ENAVAIL () { 119 }
167					sub EISNAM () { 120 }
168					sub EREMOTEIO () { 121 }
169					sub EDQUOT () { 122 }
170					sub ENOMEDIUM () { 123 }
171					sub EMEDIUMTYPE () { 124 }
172					sub ECANCELED () { 125 }
173					sub ENOKEY () { 126 }
174					sub EKEYEXPIRED () { 127 }
175					sub EKEYREVOKED () { 128 }
176					sub EKEYREJECTED () { 129 }
177					sub EOWNERDEAD () { 130 }
178					sub ENOTRECOVERABLE () { 131 }
179					sub ERFKILL () { 132 }
180
181	1	28µs			# spent 21µs within Errno::TIEHASH which was called: # once (21µs+0s) by IO::Socket::BEGIN@17 at line 224 sub TIEHASH { bless [] }
182
183					sub FETCH {
184					my ($self, $errname) = @_;
185					my $proto = prototype("Errno::$errname");
186					my $errno = "";
187					if (defined($proto) && $proto eq "") {
188	3	345µs	2	92µs	# spent 55µs (18+37) within Errno::BEGIN@188 which was called: # once (18µs+37µs) by IO::Socket::BEGIN@17 at line 188 no strict 'refs'; # spent 55µs making 1 call to Errno::BEGIN@188 # spent 37µs making 1 call to strict::unimport
189					$errno = &$errname;
190					$errno = 0 unless $! == $errno;
191					}
192					return $errno;
193					}
194
195					sub STORE {
196					require Carp;
197					Carp::confess("ERRNO hash is read only!");
198					}
199
200	1	4µs			*CLEAR = \&STORE;
201	1	1µs			*DELETE = \&STORE;
202
203					sub NEXTKEY {
204					my($k,$v);
205					while(($k,$v) = each %Errno::) {
206					my $proto = prototype("Errno::$k");
207					last if (defined($proto) && $proto eq "");
208					}
209					$k
210					}
211
212					sub FIRSTKEY {
213					my $s = scalar keys %Errno::; # initialize iterator
214					goto &NEXTKEY;
215					}
216
217					sub EXISTS {
218					my ($self, $errname) = @_;
219					my $r = ref $errname;
220					my $proto = !$r || $r eq 'CODE' ? prototype($errname) : undef;
221					defined($proto) && $proto eq "";
222					}
223
224	1	10µs	1	21µs	tie %!, __PACKAGE__; # spent 21µs making 1 call to Errno::TIEHASH
225
226	1	37µs			1;
227					__END__