Profile of Fcntl.pm

Filename	/usr/lib/x86_64-linux-gnu/perl/5.28/Fcntl.pm
Statements	Executed 11 statements in 522µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
16	1	1	26µs	26µs	Fcntl::::O_WRONLYFcntl::O_WRONLY (xsub)
17	2	1	16µs	16µs	Fcntl::::LOCK_EXFcntl::LOCK_EX (xsub)
16	1	1	16µs	16µs	Fcntl::::O_CREATFcntl::O_CREAT (xsub)
16	1	1	10µs	10µs	Fcntl::::O_EXCLFcntl::O_EXCL (xsub)
1	1	1	10µs	12µs	Fcntl::::BEGIN@3Fcntl::BEGIN@3
1	1	1	6µs	6µs	Fcntl::::O_NOFOLLOWFcntl::O_NOFOLLOW (xsub)
2	1	1	4µs	4µs	Fcntl::::LOCK_SHFcntl::LOCK_SH (xsub)
1	1	1	4µs	4µs	Fcntl::::O_BINARYFcntl::O_BINARY (xsub)
1	1	1	3µs	3µs	Fcntl::::O_LARGEFILEFcntl::O_LARGEFILE (xsub)

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Fcntl;
2
3	2	245µs	2	15µs	# spent 12µs (10+2) within Fcntl::BEGIN@3 which was called: # once (10µs+2µs) by Storable::BEGIN@72 at line 3 use strict; # spent 12µs making 1 call to Fcntl::BEGIN@3 # spent 2µs making 1 call to strict::import
4					our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
5
6	1	400ns			require Exporter;
7	1	100ns			require XSLoader;
8	1	8µs			@ISA = qw(Exporter);
9	1	200ns			$VERSION = '1.13';
10
11	1	228µs	1	221µs	XSLoader::load(); # spent 221µs making 1 call to XSLoader::load
12
13					# Named groups of exports
14	1	10µs			%EXPORT_TAGS = (
15					'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
16					'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
17					FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
18					'seek' => [qw(SEEK_SET SEEK_CUR SEEK_END)],
19					'mode' => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
20					_S_IFMT S_IFREG S_IFDIR S_IFLNK
21					S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
22					S_IRUSR S_IWUSR S_IXUSR S_IRWXU
23					S_IRGRP S_IWGRP S_IXGRP S_IRWXG
24					S_IROTH S_IWOTH S_IXOTH S_IRWXO
25					S_IREAD S_IWRITE S_IEXEC
26					S_ISREG S_ISDIR S_ISLNK S_ISSOCK
27					S_ISBLK S_ISCHR S_ISFIFO
28					S_ISWHT S_ISENFMT
29					S_IFMT S_IMODE
30					)],
31					);
32
33					# Items to export into callers namespace by default
34					# (move infrequently used names to @EXPORT_OK below)
35	1	4µs			@EXPORT =
36					qw(
37					FD_CLOEXEC
38					F_ALLOCSP
39					F_ALLOCSP64
40					F_COMPAT
41					F_DUP2FD
42					F_DUPFD
43					F_EXLCK
44					F_FREESP
45					F_FREESP64
46					F_FSYNC
47					F_FSYNC64
48					F_GETFD
49					F_GETFL
50					F_GETLK
51					F_GETLK64
52					F_GETOWN
53					F_NODNY
54					F_POSIX
55					F_RDACC
56					F_RDDNY
57					F_RDLCK
58					F_RWACC
59					F_RWDNY
60					F_SETFD
61					F_SETFL
62					F_SETLK
63					F_SETLK64
64					F_SETLKW
65					F_SETLKW64
66					F_SETOWN
67					F_SHARE
68					F_SHLCK
69					F_UNLCK
70					F_UNSHARE
71					F_WRACC
72					F_WRDNY
73					F_WRLCK
74					O_ACCMODE
75					O_ALIAS
76					O_APPEND
77					O_ASYNC
78					O_BINARY
79					O_CREAT
80					O_DEFER
81					O_DIRECT
82					O_DIRECTORY
83					O_DSYNC
84					O_EXCL
85					O_EXLOCK
86					O_LARGEFILE
87					O_NDELAY
88					O_NOCTTY
89					O_NOFOLLOW
90					O_NOINHERIT
91					O_NONBLOCK
92					O_RANDOM
93					O_RAW
94					O_RDONLY
95					O_RDWR
96					O_RSRC
97					O_RSYNC
98					O_SEQUENTIAL
99					O_SHLOCK
100					O_SYNC
101					O_TEMPORARY
102					O_TEXT
103					O_TRUNC
104					O_WRONLY
105					);
106
107					# Other items we are prepared to export if requested
108					@EXPORT_OK = (qw(
109					DN_ACCESS
110					DN_ATTRIB
111					DN_CREATE
112					DN_DELETE
113					DN_MODIFY
114					DN_MULTISHOT
115					DN_RENAME
116					F_GETLEASE
117					F_GETPIPE_SZ
118					F_GETSIG
119					F_NOTIFY
120					F_SETLEASE
121					F_SETPIPE_SZ
122					F_SETSIG
123					LOCK_MAND
124					LOCK_READ
125					LOCK_RW
126					LOCK_WRITE
127					O_ALT_IO
128					O_EVTONLY
129					O_IGNORE_CTTY
130					O_NOATIME
131					O_NOLINK
132					O_NOSIGPIPE
133					O_NOTRANS
134					O_SYMLINK
135					O_TTY_INIT
136	1	10µs			), map {@{$_}} values %EXPORT_TAGS);
137
138	1	16µs			1;

					# spent 16µs within Fcntl::LOCK_EX which was called 17 times, avg 965ns/call: # 16 times (15µs+0s) by Path::Tiny::filehandle at line 1067 of Path/Tiny.pm, avg 912ns/call # once (2µs+0s) by Path::Tiny::filehandle at line 1081 of Path/Tiny.pm sub Fcntl::LOCK_EX; # xsub
					# spent 4µs within Fcntl::LOCK_SH which was called 2 times, avg 2µs/call: # 2 times (4µs+0s) by Path::Tiny::filehandle at line 1081 of Path/Tiny.pm, avg 2µs/call sub Fcntl::LOCK_SH; # xsub
					# spent 4µs within Fcntl::O_BINARY which was called: # once (4µs+0s) by IO::CaptureOutput::_proxy::BEGIN@138 at line 113 of File/Temp.pm sub Fcntl::O_BINARY; # xsub
					# spent 16µs within Fcntl::O_CREAT which was called 16 times, avg 994ns/call: # 16 times (16µs+0s) by Path::Tiny::filehandle at line 1046 of Path/Tiny.pm, avg 994ns/call sub Fcntl::O_CREAT; # xsub
					# spent 10µs within Fcntl::O_EXCL which was called 16 times, avg 656ns/call: # 16 times (10µs+0s) by Path::Tiny::filehandle at line 1047 of Path/Tiny.pm, avg 656ns/call sub Fcntl::O_EXCL; # xsub
					# spent 3µs within Fcntl::O_LARGEFILE which was called: # once (3µs+0s) by IO::CaptureOutput::_proxy::BEGIN@138 at line 113 of File/Temp.pm sub Fcntl::O_LARGEFILE; # xsub
					# spent 6µs within Fcntl::O_NOFOLLOW which was called: # once (6µs+0s) by IO::CaptureOutput::_proxy::BEGIN@138 at line 113 of File/Temp.pm sub Fcntl::O_NOFOLLOW; # xsub
					# spent 26µs within Fcntl::O_WRONLY which was called 16 times, avg 2µs/call: # 16 times (26µs+0s) by Path::Tiny::filehandle at line 1045 of Path/Tiny.pm, avg 2µs/call sub Fcntl::O_WRONLY; # xsub