← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:27 2015

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