Filename | /usr/local/lib/perl5/5.32/mach/Errno.pm |
Statements | Executed 0 statements in 0s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN@11 | Errno::
0 | 0 | 0 | 0s | 0s | BEGIN@22 | Errno::
0 | 0 | 0 | 0s | 0s | BEGIN@9 | Errno::
0 | 0 | 0 | 0s | 0s | EXISTS | Errno::
0 | 0 | 0 | 0s | 0s | FETCH | Errno::
0 | 0 | 0 | 0s | 0s | FIRSTKEY | Errno::
0 | 0 | 0 | 0s | 0s | NEXTKEY | Errno::
0 | 0 | 0 | 0s | 0s | STORE | Errno::
0 | 0 | 0 | 0s | 0s | TIEHASH | Errno::
0 | 0 | 0 | 0s | 0s | _tie_it | Errno::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # -*- buffer-read-only: t -*- | ||||
2 | # | ||||
3 | # This file is auto-generated by ext/Errno/Errno_pm.PL. | ||||
4 | # ***ANY*** changes here will be lost. | ||||
5 | # | ||||
6 | |||||
7 | package Errno; | ||||
8 | require Exporter; | ||||
9 | use strict; | ||||
10 | |||||
11 | use Config; | ||||
12 | "$Config{'archname'}-$Config{'osvers'}" eq | ||||
13 | "amd64-freebsd-thread-multi-12.2-release-p3" or | ||||
14 | die "Errno architecture (amd64-freebsd-thread-multi-12.2-release-p3) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})"; | ||||
15 | |||||
16 | our $VERSION = "1.30"; | ||||
17 | $VERSION = eval $VERSION; # spent 0s executing statements in string eval | ||||
18 | our @ISA = 'Exporter'; | ||||
19 | |||||
20 | my %err; | ||||
21 | |||||
22 | BEGIN { | ||||
23 | %err = ( | ||||
24 | EPERM => 1, | ||||
25 | ENOENT => 2, | ||||
26 | ESRCH => 3, | ||||
27 | EINTR => 4, | ||||
28 | EIO => 5, | ||||
29 | ENXIO => 6, | ||||
30 | E2BIG => 7, | ||||
31 | ENOEXEC => 8, | ||||
32 | EBADF => 9, | ||||
33 | ECHILD => 10, | ||||
34 | EDEADLK => 11, | ||||
35 | ENOMEM => 12, | ||||
36 | EACCES => 13, | ||||
37 | EFAULT => 14, | ||||
38 | ENOTBLK => 15, | ||||
39 | EBUSY => 16, | ||||
40 | EEXIST => 17, | ||||
41 | EXDEV => 18, | ||||
42 | ENODEV => 19, | ||||
43 | ENOTDIR => 20, | ||||
44 | EISDIR => 21, | ||||
45 | EINVAL => 22, | ||||
46 | ENFILE => 23, | ||||
47 | EMFILE => 24, | ||||
48 | ENOTTY => 25, | ||||
49 | ETXTBSY => 26, | ||||
50 | EFBIG => 27, | ||||
51 | ENOSPC => 28, | ||||
52 | ESPIPE => 29, | ||||
53 | EROFS => 30, | ||||
54 | EMLINK => 31, | ||||
55 | EPIPE => 32, | ||||
56 | EDOM => 33, | ||||
57 | ERANGE => 34, | ||||
58 | EAGAIN => 35, | ||||
59 | EWOULDBLOCK => 35, | ||||
60 | EINPROGRESS => 36, | ||||
61 | EALREADY => 37, | ||||
62 | ENOTSOCK => 38, | ||||
63 | EDESTADDRREQ => 39, | ||||
64 | EMSGSIZE => 40, | ||||
65 | EPROTOTYPE => 41, | ||||
66 | ENOPROTOOPT => 42, | ||||
67 | EPROTONOSUPPORT => 43, | ||||
68 | ESOCKTNOSUPPORT => 44, | ||||
69 | ENOTSUP => 45, | ||||
70 | EOPNOTSUPP => 45, | ||||
71 | EPFNOSUPPORT => 46, | ||||
72 | EAFNOSUPPORT => 47, | ||||
73 | EADDRINUSE => 48, | ||||
74 | EADDRNOTAVAIL => 49, | ||||
75 | ENETDOWN => 50, | ||||
76 | ENETUNREACH => 51, | ||||
77 | ENETRESET => 52, | ||||
78 | ECONNABORTED => 53, | ||||
79 | ECONNRESET => 54, | ||||
80 | ENOBUFS => 55, | ||||
81 | EISCONN => 56, | ||||
82 | ENOTCONN => 57, | ||||
83 | ESHUTDOWN => 58, | ||||
84 | ETOOMANYREFS => 59, | ||||
85 | ETIMEDOUT => 60, | ||||
86 | ECONNREFUSED => 61, | ||||
87 | ELOOP => 62, | ||||
88 | ENAMETOOLONG => 63, | ||||
89 | EHOSTDOWN => 64, | ||||
90 | EHOSTUNREACH => 65, | ||||
91 | ENOTEMPTY => 66, | ||||
92 | EPROCLIM => 67, | ||||
93 | EUSERS => 68, | ||||
94 | EDQUOT => 69, | ||||
95 | ESTALE => 70, | ||||
96 | EREMOTE => 71, | ||||
97 | EBADRPC => 72, | ||||
98 | ERPCMISMATCH => 73, | ||||
99 | EPROGUNAVAIL => 74, | ||||
100 | EPROGMISMATCH => 75, | ||||
101 | EPROCUNAVAIL => 76, | ||||
102 | ENOLCK => 77, | ||||
103 | ENOSYS => 78, | ||||
104 | EFTYPE => 79, | ||||
105 | EAUTH => 80, | ||||
106 | ENEEDAUTH => 81, | ||||
107 | EIDRM => 82, | ||||
108 | ENOMSG => 83, | ||||
109 | EOVERFLOW => 84, | ||||
110 | ECANCELED => 85, | ||||
111 | EILSEQ => 86, | ||||
112 | ENOATTR => 87, | ||||
113 | EDOOFUS => 88, | ||||
114 | EBADMSG => 89, | ||||
115 | EMULTIHOP => 90, | ||||
116 | ENOLINK => 91, | ||||
117 | EPROTO => 92, | ||||
118 | ENOTCAPABLE => 93, | ||||
119 | ECAPMODE => 94, | ||||
120 | ENOTRECOVERABLE => 95, | ||||
121 | EOWNERDEAD => 96, | ||||
122 | EINTEGRITY => 97, | ||||
123 | ELAST => 97, | ||||
124 | ); | ||||
125 | # Generate proxy constant subroutines for all the values. | ||||
126 | # Well, almost all the values. Unfortunately we can't assume that at this | ||||
127 | # point that our symbol table is empty, as code such as if the parser has | ||||
128 | # seen code such as C<exists &Errno::EINVAL>, it will have created the | ||||
129 | # typeglob. | ||||
130 | # Doing this before defining @EXPORT_OK etc means that even if a platform is | ||||
131 | # crazy enough to define EXPORT_OK as an error constant, everything will | ||||
132 | # still work, because the parser will upgrade the PCS to a real typeglob. | ||||
133 | # We rely on the subroutine definitions below to update the internal caches. | ||||
134 | # Don't use %each, as we don't want a copy of the value. | ||||
135 | foreach my $name (keys %err) { | ||||
136 | if ($Errno::{$name}) { | ||||
137 | # We expect this to be reached fairly rarely, so take an approach | ||||
138 | # which uses the least compile time effort in the common case: | ||||
139 | eval "sub $name() { $err{$name} }; 1" or die $@; | ||||
140 | } else { | ||||
141 | $Errno::{$name} = \$err{$name}; | ||||
142 | } | ||||
143 | } | ||||
144 | } | ||||
145 | |||||
146 | our @EXPORT_OK = keys %err; | ||||
147 | |||||
148 | our %EXPORT_TAGS = ( | ||||
149 | POSIX => [qw( | ||||
150 | E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY | ||||
151 | EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK | ||||
152 | EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH | ||||
153 | EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK | ||||
154 | EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS | ||||
155 | ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK | ||||
156 | ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM | ||||
157 | EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE | ||||
158 | EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT | ||||
159 | ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV | ||||
160 | )], | ||||
161 | ); | ||||
162 | |||||
163 | sub TIEHASH { bless \%err } | ||||
164 | |||||
165 | sub FETCH { | ||||
166 | my (undef, $errname) = @_; | ||||
167 | return "" unless exists $err{$errname}; | ||||
168 | my $errno = $err{$errname}; | ||||
169 | return $errno == $! ? $errno : 0; | ||||
170 | } | ||||
171 | |||||
172 | sub STORE { | ||||
173 | require Carp; | ||||
174 | Carp::confess("ERRNO hash is read only!"); | ||||
175 | } | ||||
176 | |||||
177 | # This is the true return value | ||||
178 | *CLEAR = *DELETE = \*STORE; # Typeglob aliasing uses less space | ||||
179 | |||||
180 | sub NEXTKEY { | ||||
181 | each %err; | ||||
182 | } | ||||
183 | |||||
184 | sub FIRSTKEY { | ||||
185 | my $s = scalar keys %err; # initialize iterator | ||||
186 | each %err; | ||||
187 | } | ||||
188 | |||||
189 | sub EXISTS { | ||||
190 | my (undef, $errname) = @_; | ||||
191 | exists $err{$errname}; | ||||
192 | } | ||||
193 | |||||
194 | sub _tie_it { | ||||
195 | tie %{$_[0]}, __PACKAGE__; | ||||
196 | } | ||||
197 | |||||
198 | __END__ |