← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:37 2012

Filename/usr/lib/perl5/5.14/i686-cygwin-threads-64int/Fcntl.pm
StatementsExecuted 12 statements in 2.06ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111216µs229µsFcntl::::BEGIN@58Fcntl::BEGIN@58
11114µs14µsFcntl::::O_NOFOLLOWFcntl::O_NOFOLLOW (xsub)
11112µs12µsFcntl::::S_ISUIDFcntl::S_ISUID (xsub)
1119µs9µsFcntl::::S_ISGIDFcntl::S_ISGID (xsub)
1119µs9µsFcntl::::S_ISVTXFcntl::S_ISVTX (xsub)
1119µs9µsFcntl::::O_NOINHERITFcntl::O_NOINHERIT (xsub)
1118µs8µsFcntl::::O_BINARYFcntl::O_BINARY (xsub)
1118µs8µsFcntl::::S_IFSOCKFcntl::S_IFSOCK (xsub)
1117µs7µsFcntl::::S_IFCHRFcntl::S_IFCHR (xsub)
1117µs7µsFcntl::::S_IFLNKFcntl::S_IFLNK (xsub)
1117µs7µsFcntl::::S_IFBLKFcntl::S_IFBLK (xsub)
1117µs7µsFcntl::::S_IFREGFcntl::S_IFREG (xsub)
1117µs7µsFcntl::::S_IFDIRFcntl::S_IFDIR (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Fcntl;
2
3=head1 NAME
4
5Fcntl - load the C Fcntl.h defines
6
7=head1 SYNOPSIS
8
9 use Fcntl;
10 use Fcntl qw(:DEFAULT :flock);
11
12=head1 DESCRIPTION
13
14This module is just a translation of the C F<fcntl.h> file.
15Unlike the old mechanism of requiring a translated F<fcntl.ph>
16file, this uses the B<h2xs> program (see the Perl source distribution)
17and your native C compiler. This means that it has a
18far more likely chance of getting the numbers right.
19
20=head1 NOTE
21
22Only C<#define> symbols get translated; you must still correctly
23pack up your own arguments to pass as args for locking functions, etc.
24
25=head1 EXPORTED SYMBOLS
26
27By default your system's F_* and O_* constants (eg, F_DUPFD and
28O_CREAT) and the FD_CLOEXEC constant are exported into your namespace.
29
30You can request that the flock() constants (LOCK_SH, LOCK_EX, LOCK_NB
31and LOCK_UN) be provided by using the tag C<:flock>. See L<Exporter>.
32
33You can request that the old constants (FAPPEND, FASYNC, FCREAT,
34FDEFER, FEXCL, FNDELAY, FNONBLOCK, FSYNC, FTRUNC) be provided for
35compatibility reasons by using the tag C<:Fcompat>. For new
36applications the newer versions of these constants are suggested
37(O_APPEND, O_ASYNC, O_CREAT, O_DEFER, O_EXCL, O_NDELAY, O_NONBLOCK,
38O_SYNC, O_TRUNC).
39
40For ease of use also the SEEK_* constants (for seek() and sysseek(),
41e.g. SEEK_END) and the S_I* constants (for chmod() and stat()) are
42available for import. They can be imported either separately or using
43the tags C<:seek> and C<:mode>.
44
45Please refer to your native fcntl(2), open(2), fseek(3), lseek(2)
46(equal to Perl's seek() and sysseek(), respectively), and chmod(2)
47documentation to see what constants are implemented in your system.
48
49See L<perlopentut> to learn about the uses of the O_* constants
50with sysopen().
51
52See L<perlfunc/seek> and L<perlfunc/sysseek> about the SEEK_* constants.
53
54See L<perlfunc/stat> about the S_I* constants.
55
56=cut
57
582610µs2243µs
# spent 229µs (216+13) within Fcntl::BEGIN@58 which was called: # once (216µs+13µs) by IO::Seekable::BEGIN@104 at line 58
use strict;
# spent 229µs making 1 call to Fcntl::BEGIN@58 # spent 13µs making 1 call to strict::import
591500nsour($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
60
6111µsrequire Exporter;
621500nsrequire XSLoader;
63114µs@ISA = qw(Exporter);
6411µs$VERSION = '1.11';
65
6611.18ms11.17msXSLoader::load();
# spent 1.17ms making 1 call to XSLoader::load
67
68# Named groups of exports
69135µs%EXPORT_TAGS = (
70 'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
71 'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
72 FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
73 'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)],
74 'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
75 _S_IFMT S_IFREG S_IFDIR S_IFLNK
76 S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
77 S_IRUSR S_IWUSR S_IXUSR S_IRWXU
78 S_IRGRP S_IWGRP S_IXGRP S_IRWXG
79 S_IROTH S_IWOTH S_IXOTH S_IRWXO
80 S_IREAD S_IWRITE S_IEXEC
81 S_ISREG S_ISDIR S_ISLNK S_ISSOCK
82 S_ISBLK S_ISCHR S_ISFIFO
83 S_ISWHT S_ISENFMT
84 S_IFMT S_IMODE
85 )],
86);
87
88# Items to export into callers namespace by default
89# (move infrequently used names to @EXPORT_OK below)
90132µs@EXPORT =
91 qw(
92 FD_CLOEXEC
93 F_ALLOCSP
94 F_ALLOCSP64
95 F_COMPAT
96 F_DUP2FD
97 F_DUPFD
98 F_EXLCK
99 F_FREESP
100 F_FREESP64
101 F_FSYNC
102 F_FSYNC64
103 F_GETFD
104 F_GETFL
105 F_GETLK
106 F_GETLK64
107 F_GETOWN
108 F_NODNY
109 F_POSIX
110 F_RDACC
111 F_RDDNY
112 F_RDLCK
113 F_RWACC
114 F_RWDNY
115 F_SETFD
116 F_SETFL
117 F_SETLK
118 F_SETLK64
119 F_SETLKW
120 F_SETLKW64
121 F_SETOWN
122 F_SHARE
123 F_SHLCK
124 F_UNLCK
125 F_UNSHARE
126 F_WRACC
127 F_WRDNY
128 F_WRLCK
129 O_ACCMODE
130 O_ALIAS
131 O_APPEND
132 O_ASYNC
133 O_BINARY
134 O_CREAT
135 O_DEFER
136 O_DIRECT
137 O_DIRECTORY
138 O_DSYNC
139 O_EXCL
140 O_EXLOCK
141 O_LARGEFILE
142 O_NDELAY
143 O_NOCTTY
144 O_NOFOLLOW
145 O_NOINHERIT
146 O_NONBLOCK
147 O_RANDOM
148 O_RAW
149 O_RDONLY
150 O_RDWR
151 O_RSRC
152 O_RSYNC
153 O_SEQUENTIAL
154 O_SHLOCK
155 O_SYNC
156 O_TEMPORARY
157 O_TEXT
158 O_TRUNC
159 O_WRONLY
160 );
161
162# Other items we are prepared to export if requested
163@EXPORT_OK = (qw(
164 DN_ACCESS
165 DN_ATTRIB
166 DN_CREATE
167 DN_DELETE
168 DN_MODIFY
169 DN_MULTISHOT
170 DN_RENAME
171 F_GETLEASE
172 F_GETSIG
173 F_NOTIFY
174 F_SETLEASE
175 F_SETSIG
176 LOCK_MAND
177 LOCK_READ
178 LOCK_RW
179 LOCK_WRITE
180 O_IGNORE_CTTY
181 O_NOATIME
182 O_NOLINK
183 O_NOTRANS
184156µs), map {@{$_}} values %EXPORT_TAGS);
185
1861129µs1;
 
# spent 8µs within Fcntl::O_BINARY which was called: # once (8µs+0s) by Archive::Zip::BEGIN@14 at line 247 of File/Temp.pm
sub Fcntl::O_BINARY; # xsub
# spent 14µs within Fcntl::O_NOFOLLOW which was called: # once (14µs+0s) by Archive::Zip::BEGIN@14 at line 247 of File/Temp.pm
sub Fcntl::O_NOFOLLOW; # xsub
# spent 9µs within Fcntl::O_NOINHERIT which was called: # once (9µs+0s) by Archive::Zip::BEGIN@14 at line 247 of File/Temp.pm
sub Fcntl::O_NOINHERIT; # xsub
# spent 7µs within Fcntl::S_IFBLK which was called: # once (7µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFBLK; # xsub
# spent 7µs within Fcntl::S_IFCHR which was called: # once (7µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFCHR; # xsub
# spent 7µs within Fcntl::S_IFDIR which was called: # once (7µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFDIR; # xsub
# spent 7µs within Fcntl::S_IFLNK which was called: # once (7µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFLNK; # xsub
# spent 7µs within Fcntl::S_IFREG which was called: # once (7µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFREG; # xsub
# spent 8µs within Fcntl::S_IFSOCK which was called: # once (8µs+0s) by File::stat::BEGIN@32 at line 41 of File/stat.pm
sub Fcntl::S_IFSOCK; # xsub
# spent 9µs within Fcntl::S_ISGID which was called: # once (9µs+0s) by File::stat::BEGIN@32 at line 37 of File/stat.pm
sub Fcntl::S_ISGID; # xsub
# spent 12µs within Fcntl::S_ISUID which was called: # once (12µs+0s) by File::stat::BEGIN@32 at line 37 of File/stat.pm
sub Fcntl::S_ISUID; # xsub
# spent 9µs within Fcntl::S_ISVTX which was called: # once (9µs+0s) by File::stat::BEGIN@32 at line 37 of File/stat.pm
sub Fcntl::S_ISVTX; # xsub