← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:03 2021

Filename/usr/local/lib/perl5/5.32/mach/Errno.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sErrno::::BEGIN@11Errno::BEGIN@11
0000s0sErrno::::BEGIN@22Errno::BEGIN@22
0000s0sErrno::::BEGIN@9Errno::BEGIN@9
0000s0sErrno::::EXISTSErrno::EXISTS
0000s0sErrno::::FETCHErrno::FETCH
0000s0sErrno::::FIRSTKEYErrno::FIRSTKEY
0000s0sErrno::::NEXTKEYErrno::NEXTKEY
0000s0sErrno::::STOREErrno::STORE
0000s0sErrno::::TIEHASHErrno::TIEHASH
0000s0sErrno::::_tie_itErrno::_tie_it
Call graph for these subroutines as a Graphviz dot language file.
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
7package Errno;
8require Exporter;
9use strict;
10
11use 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
16our $VERSION = "1.30";
17$VERSION = eval $VERSION;
# spent 0s executing statements in string eval
18our @ISA = 'Exporter';
19
20my %err;
21
22BEGIN {
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
146our @EXPORT_OK = keys %err;
147
148our %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
163sub TIEHASH { bless \%err }
164
165sub FETCH {
166 my (undef, $errname) = @_;
167 return "" unless exists $err{$errname};
168 my $errno = $err{$errname};
169 return $errno == $! ? $errno : 0;
170}
171
172sub 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
180sub NEXTKEY {
181 each %err;
182}
183
184sub FIRSTKEY {
185 my $s = scalar keys %err; # initialize iterator
186 each %err;
187}
188
189sub EXISTS {
190 my (undef, $errname) = @_;
191 exists $err{$errname};
192}
193
194sub _tie_it {
195 tie %{$_[0]}, __PACKAGE__;
196}
197
198__END__