Filename	/usr/lib/x86_64-linux-gnu/perl/5.20/IO/Seekable.pm
Statements	Executed 17 statements in 2.91ms

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	4.60ms	6.71ms	IO::Seekable::::BEGIN@9IO::Seekable::BEGIN@9
1	1	1	1.63ms	2.25ms	IO::Seekable::::BEGIN@12IO::Seekable::BEGIN@12
1	1	1	23µs	23µs	IO::Seekable::::BEGIN@5IO::Seekable::BEGIN@5
1	1	1	11µs	57µs	IO::Seekable::::BEGIN@6IO::Seekable::BEGIN@6
1	1	1	8µs	24µs	IO::Seekable::::BEGIN@7IO::Seekable::BEGIN@7
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	63µs	1	23µs	# spent 23µs within IO::Seekable::BEGIN@5 which was called: # once (23µs+0s) by IO::File::BEGIN@11 at line 5 use 5.006_001; # spent 23µs making 1 call to IO::Seekable::BEGIN@5
6	2	34µs	2	103µs	# spent 57µs (11+46) within IO::Seekable::BEGIN@6 which was called: # once (11µs+46µs) by IO::File::BEGIN@11 at line 6 use Carp; # spent 57µs making 1 call to IO::Seekable::BEGIN@6 # spent 46µs making 1 call to Exporter::import
7	2	53µs	2	39µs	# spent 24µs (8+16) within IO::Seekable::BEGIN@7 which was called: # once (8µs+16µs) by IO::File::BEGIN@11 at line 7 use strict; # spent 24µs making 1 call to IO::Seekable::BEGIN@7 # spent 16µs making 1 call to strict::import
8	1	500ns			our($VERSION, @EXPORT, @ISA);
9	2	1.27ms	1	6.71ms	# spent 6.71ms (4.60+2.11) within IO::Seekable::BEGIN@9 which was called: # once (4.60ms+2.11ms) by IO::File::BEGIN@11 at line 9 use IO::Handle (); # spent 6.71ms making 1 call to IO::Seekable::BEGIN@9
10					# XXX we can't get these from IO::Handle or we'll get prototype
11					# mismatch warnings on C<use POSIX; use IO::File;> :-(
12	2	1.45ms	2	2.53ms	# spent 2.25ms (1.63+614µs) within IO::Seekable::BEGIN@12 which was called: # once (1.63ms+614µs) by IO::File::BEGIN@11 at line 12 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 2.25ms making 1 call to IO::Seekable::BEGIN@12 # spent 285µs making 1 call to Exporter::import
13	1	800ns			require Exporter;
14
15	1	1µs			@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
16	1	14µs			@ISA = qw(Exporter);
17
18	1	300ns			$VERSION = "1.10";
19	1	17µs			$VERSION = eval $VERSION; # spent 3µs executing statements in string eval
20
21					sub seek {
22					@_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
23					seek($_[0], $_[1], $_[2]);
24					}
25
26					sub sysseek {
27					@_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
28					sysseek($_[0], $_[1], $_[2]);
29					}
30
31					sub tell {
32					@_ == 1 or croak 'usage: $io->tell()';
33					tell($_[0]);
34					}
35
36	1	4µs			1;