Profile of IO/Seekable.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	11µs	11µs	IO::Seekable::::BEGIN@5IO::Seekable::BEGIN@5
1	1	1	5µs	26µs	IO::Seekable::::BEGIN@11IO::Seekable::BEGIN@11
1	1	1	5µs	6µs	IO::Seekable::::BEGIN@7IO::Seekable::BEGIN@7
1	1	1	5µs	32µs	IO::Seekable::::BEGIN@6IO::Seekable::BEGIN@6
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	36µs	1	11µs	# spent 11µs within IO::Seekable::BEGIN@5 which was called: # once (11µs+0s) by File::Temp::BEGIN@15 at line 5 use 5.008_001; # spent 11µs making 1 call to IO::Seekable::BEGIN@5
6	2	18µs	2	59µs	# spent 32µs (5+27) within IO::Seekable::BEGIN@6 which was called: # once (5µs+27µs) by File::Temp::BEGIN@15 at line 6 use Carp; # spent 32µs making 1 call to IO::Seekable::BEGIN@6 # spent 27µs making 1 call to Exporter::import
7	2	20µs	2	8µs	# spent 6µ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 6µ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	260µs	2	47µs	# spent 26µs (5+21) within IO::Seekable::BEGIN@11 which was called: # once (5µs+21µs) by File::Temp::BEGIN@15 at line 11 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 26µs making 1 call to IO::Seekable::BEGIN@11 # spent 21µs making 1 call to Exporter::import
12	1	300ns			require Exporter;
13
14	1	800ns			our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
15	1	12µs			our @ISA = qw(Exporter);
16
17	1	200ns			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	4µs			1;