| File | /usr/lib/perl/5.10/Fcntl.pm |
| Statements Executed | 20 |
| Total Time | 0.0012775 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 0 | 0 | 0 | 0s | 0s | Fcntl::AUTOLOAD |
| 0 | 0 | 0 | 0s | 0s | Fcntl::BEGIN |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_IFMT |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_IMODE |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISBLK |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISCHR |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISDIR |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISENFMT |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISFIFO |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISLNK |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISREG |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISSOCK |
| 0 | 0 | 0 | 0s | 0s | Fcntl::S_ISWHT |
| 0 | 0 | 0 | 0s | 0s | Fcntl::__ANON__[:185] |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package Fcntl; | |||
| 2 | ||||
| 3 | 3 | 60µs | 20µs | use strict; # spent 10µs making 1 call to strict::import |
| 4 | 1 | 900ns | 900ns | our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD); |
| 5 | ||||
| 6 | 1 | 700ns | 700ns | require Exporter; |
| 7 | 3 | 36µs | 12µs | use XSLoader (); |
| 8 | 1 | 11µs | 11µs | @ISA = qw(Exporter); |
| 9 | BEGIN { | |||
| 10 | 1 | 1µs | 1µs | $VERSION = "1.06"; |
| 11 | 1 | 222µs | 222µs | } |
| 12 | ||||
| 13 | # Items to export into callers namespace by default | |||
| 14 | # (move infrequently used names to @EXPORT_OK below) | |||
| 15 | 1 | 31µs | 31µs | @EXPORT = |
| 16 | qw( | |||
| 17 | FD_CLOEXEC | |||
| 18 | F_ALLOCSP | |||
| 19 | F_ALLOCSP64 | |||
| 20 | F_COMPAT | |||
| 21 | F_DUP2FD | |||
| 22 | F_DUPFD | |||
| 23 | F_EXLCK | |||
| 24 | F_FREESP | |||
| 25 | F_FREESP64 | |||
| 26 | F_FSYNC | |||
| 27 | F_FSYNC64 | |||
| 28 | F_GETFD | |||
| 29 | F_GETFL | |||
| 30 | F_GETLK | |||
| 31 | F_GETLK64 | |||
| 32 | F_GETOWN | |||
| 33 | F_NODNY | |||
| 34 | F_POSIX | |||
| 35 | F_RDACC | |||
| 36 | F_RDDNY | |||
| 37 | F_RDLCK | |||
| 38 | F_RWACC | |||
| 39 | F_RWDNY | |||
| 40 | F_SETFD | |||
| 41 | F_SETFL | |||
| 42 | F_SETLK | |||
| 43 | F_SETLK64 | |||
| 44 | F_SETLKW | |||
| 45 | F_SETLKW64 | |||
| 46 | F_SETOWN | |||
| 47 | F_SHARE | |||
| 48 | F_SHLCK | |||
| 49 | F_UNLCK | |||
| 50 | F_UNSHARE | |||
| 51 | F_WRACC | |||
| 52 | F_WRDNY | |||
| 53 | F_WRLCK | |||
| 54 | O_ACCMODE | |||
| 55 | O_ALIAS | |||
| 56 | O_APPEND | |||
| 57 | O_ASYNC | |||
| 58 | O_BINARY | |||
| 59 | O_CREAT | |||
| 60 | O_DEFER | |||
| 61 | O_DIRECT | |||
| 62 | O_DIRECTORY | |||
| 63 | O_DSYNC | |||
| 64 | O_EXCL | |||
| 65 | O_EXLOCK | |||
| 66 | O_LARGEFILE | |||
| 67 | O_NDELAY | |||
| 68 | O_NOCTTY | |||
| 69 | O_NOFOLLOW | |||
| 70 | O_NOINHERIT | |||
| 71 | O_NONBLOCK | |||
| 72 | O_RANDOM | |||
| 73 | O_RAW | |||
| 74 | O_RDONLY | |||
| 75 | O_RDWR | |||
| 76 | O_RSRC | |||
| 77 | O_RSYNC | |||
| 78 | O_SEQUENTIAL | |||
| 79 | O_SHLOCK | |||
| 80 | O_SYNC | |||
| 81 | O_TEMPORARY | |||
| 82 | O_TEXT | |||
| 83 | O_TRUNC | |||
| 84 | O_WRONLY | |||
| 85 | ); | |||
| 86 | ||||
| 87 | # Other items we are prepared to export if requested | |||
| 88 | 1 | 14µs | 14µs | @EXPORT_OK = qw( |
| 89 | DN_ACCESS | |||
| 90 | DN_ATTRIB | |||
| 91 | DN_CREATE | |||
| 92 | DN_DELETE | |||
| 93 | DN_MODIFY | |||
| 94 | DN_MULTISHOT | |||
| 95 | DN_RENAME | |||
| 96 | FAPPEND | |||
| 97 | FASYNC | |||
| 98 | FCREAT | |||
| 99 | FDEFER | |||
| 100 | FDSYNC | |||
| 101 | FEXCL | |||
| 102 | FLARGEFILE | |||
| 103 | FNDELAY | |||
| 104 | FNONBLOCK | |||
| 105 | FRSYNC | |||
| 106 | FSYNC | |||
| 107 | FTRUNC | |||
| 108 | F_GETLEASE | |||
| 109 | F_GETSIG | |||
| 110 | F_NOTIFY | |||
| 111 | F_SETLEASE | |||
| 112 | F_SETSIG | |||
| 113 | LOCK_EX | |||
| 114 | LOCK_MAND | |||
| 115 | LOCK_NB | |||
| 116 | LOCK_READ | |||
| 117 | LOCK_RW | |||
| 118 | LOCK_SH | |||
| 119 | LOCK_UN | |||
| 120 | LOCK_WRITE | |||
| 121 | O_IGNORE_CTTY | |||
| 122 | O_NOATIME | |||
| 123 | O_NOLINK | |||
| 124 | O_NOTRANS | |||
| 125 | SEEK_CUR | |||
| 126 | SEEK_END | |||
| 127 | SEEK_SET | |||
| 128 | S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT | |||
| 129 | S_IREAD S_IWRITE S_IEXEC | |||
| 130 | S_IRGRP S_IWGRP S_IXGRP S_IRWXG | |||
| 131 | S_IROTH S_IWOTH S_IXOTH S_IRWXO | |||
| 132 | S_IRUSR S_IWUSR S_IXUSR S_IRWXU | |||
| 133 | S_ISUID S_ISGID S_ISVTX S_ISTXT | |||
| 134 | _S_IFMT S_IFREG S_IFDIR S_IFLNK | |||
| 135 | &S_ISREG &S_ISDIR &S_ISLNK &S_ISSOCK &S_ISBLK &S_ISCHR &S_ISFIFO | |||
| 136 | &S_ISWHT &S_ISENFMT &S_IFMT &S_IMODE | |||
| 137 | ); | |||
| 138 | # Named groups of exports | |||
| 139 | 1 | 20µs | 20µs | %EXPORT_TAGS = ( |
| 140 | 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)], | |||
| 141 | 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE | |||
| 142 | FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)], | |||
| 143 | 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)], | |||
| 144 | 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT | |||
| 145 | _S_IFMT S_IFREG S_IFDIR S_IFLNK | |||
| 146 | S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT | |||
| 147 | S_IRUSR S_IWUSR S_IXUSR S_IRWXU | |||
| 148 | S_IRGRP S_IWGRP S_IXGRP S_IRWXG | |||
| 149 | S_IROTH S_IWOTH S_IXOTH S_IRWXO | |||
| 150 | S_IREAD S_IWRITE S_IEXEC | |||
| 151 | S_ISREG S_ISDIR S_ISLNK S_ISSOCK | |||
| 152 | S_ISBLK S_ISCHR S_ISFIFO | |||
| 153 | S_ISWHT S_ISENFMT | |||
| 154 | S_IFMT S_IMODE | |||
| 155 | )], | |||
| 156 | ); | |||
| 157 | ||||
| 158 | # Force the constants to become inlined | |||
| 159 | BEGIN { | |||
| 160 | 1 | 307µs | 307µs | XSLoader::load 'Fcntl', $VERSION; # spent 305µs making 1 call to XSLoader::load |
| 161 | 1 | 411µs | 411µs | } |
| 162 | ||||
| 163 | sub S_IFMT { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT() } | |||
| 164 | sub S_IMODE { $_[0] & 07777 } | |||
| 165 | ||||
| 166 | sub S_ISREG { ( $_[0] & _S_IFMT() ) == S_IFREG() } | |||
| 167 | sub S_ISDIR { ( $_[0] & _S_IFMT() ) == S_IFDIR() } | |||
| 168 | sub S_ISLNK { ( $_[0] & _S_IFMT() ) == S_IFLNK() } | |||
| 169 | sub S_ISSOCK { ( $_[0] & _S_IFMT() ) == S_IFSOCK() } | |||
| 170 | sub S_ISBLK { ( $_[0] & _S_IFMT() ) == S_IFBLK() } | |||
| 171 | sub S_ISCHR { ( $_[0] & _S_IFMT() ) == S_IFCHR() } | |||
| 172 | sub S_ISFIFO { ( $_[0] & _S_IFMT() ) == S_IFIFO() } | |||
| 173 | sub S_ISWHT { ( $_[0] & _S_IFMT() ) == S_IFWHT() } | |||
| 174 | sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() } | |||
| 175 | ||||
| 176 | sub AUTOLOAD { | |||
| 177 | (my $constname = $AUTOLOAD) =~ s/.*:://; | |||
| 178 | die "&Fcntl::constant not defined" if $constname eq 'constant'; | |||
| 179 | my ($error, $val) = constant($constname); | |||
| 180 | if ($error) { | |||
| 181 | my (undef,$file,$line) = caller; | |||
| 182 | die "$error at $file line $line.\n"; | |||
| 183 | } | |||
| 184 | 3 | 121µs | 40µs | no strict 'refs'; # spent 29µs making 1 call to strict::unimport |
| 185 | *$AUTOLOAD = sub { $val }; | |||
| 186 | goto &$AUTOLOAD; | |||
| 187 | } | |||
| 188 | ||||
| 189 | 1 | 42µs | 42µs | 1; |