Profile of IO/Seekable.pm

Filename	/usr/lib/x86_64-linux-gnu/perl/5.28/IO/Seekable.pm
Statements	Executed 15 statements in 272µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	12µs	12µs	IO::Seekable::::BEGIN@5IO::Seekable::BEGIN@5
1	1	1	5µs	31µs	IO::Seekable::::BEGIN@6IO::Seekable::BEGIN@6
1	1	1	5µs	7µs	IO::Seekable::::BEGIN@7IO::Seekable::BEGIN@7
1	1	1	5µs	27µs	IO::Seekable::::BEGIN@11IO::Seekable::BEGIN@11
1	1	1	3µs	3µs	IO::Seekable::::BEGIN@8IO::Seekable::BEGIN@8
0	0	0	0s	0s	IO::Seekable::::seekIO::Seekable::seek
0	0	0	0s	0s	IO::Seekable::::sysseekIO::Seekable::sysseek
0	0	0	0s	0s	IO::Seekable::::tellIO::Seekable::tell

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					#
2
3					package IO::Seekable;
4
5	2	33µs	1	12µs	# spent 12µs within IO::Seekable::BEGIN@5 which was called: # once (12µs+0s) by File::Temp::BEGIN@15 at line 5 use 5.008_001; # spent 12µs making 1 call to IO::Seekable::BEGIN@5
6	2	21µs	2	57µs	# spent 31µs (5+26) within IO::Seekable::BEGIN@6 which was called: # once (5µs+26µs) by File::Temp::BEGIN@15 at line 6 use Carp; # spent 31µs making 1 call to IO::Seekable::BEGIN@6 # spent 26µs making 1 call to Exporter::import
7	2	18µs	2	8µs	# spent 7µs (5+2) within IO::Seekable::BEGIN@7 which was called: # once (5µs+2µs) by File::Temp::BEGIN@15 at line 7 use strict; # spent 7µs making 1 call to IO::Seekable::BEGIN@7 # spent 2µs making 1 call to strict::import
8	2	20µs	1	3µs	# spent 3µs within IO::Seekable::BEGIN@8 which was called: # once (3µs+0s) by File::Temp::BEGIN@15 at line 8 use IO::Handle (); # spent 3µs making 1 call to IO::Seekable::BEGIN@8
9					# XXX we can't get these from IO::Handle or we'll get prototype
10					# mismatch warnings on C<use POSIX; use IO::File;> :-(
11	2	158µs	2	49µs	# spent 27µs (5+22) within IO::Seekable::BEGIN@11 which was called: # once (5µs+22µs) by File::Temp::BEGIN@15 at line 11 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 27µs making 1 call to IO::Seekable::BEGIN@11 # spent 22µs making 1 call to Exporter::import
12	1	400ns			require Exporter;
13
14	1	900ns			our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
15	1	15µs			our @ISA = qw(Exporter);
16
17	1	300ns			our $VERSION = "1.39";
18
19					sub seek {
20					@_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
21					seek($_[0], $_[1], $_[2]);
22					}
23
24					sub sysseek {
25					@_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
26					sysseek($_[0], $_[1], $_[2]);
27					}
28
29					sub tell {
30					@_ == 1 or croak 'usage: $io->tell()';
31					tell($_[0]);
32					}
33
34	1	5µs			1;