Profile of SelectSaver.pm

Filename	/usr/lib/x86_64-linux-gnu/perl-base/SelectSaver.pm
Statements	Executed 7 statements in 101µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	8µs	34µs	SelectSaver::::BEGIN@6SelectSaver::BEGIN@6
1	1	1	3µs	17µs	SelectSaver::::BEGIN@7SelectSaver::BEGIN@7
0	0	0	0s	0s	SelectSaver::::DESTROYSelectSaver::DESTROY
0	0	0	0s	0s	SelectSaver::::newSelectSaver::new

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package SelectSaver;
2
3	1	300ns			our $VERSION = '1.02';
4
5	1	6µs			require 5.000;
6	2	21µs	2	61µs	# spent 34µs (8+26) within SelectSaver::BEGIN@6 which was called: # once (8µs+26µs) by IO::Handle::BEGIN@267 at line 6 use Carp; # spent 34µs making 1 call to SelectSaver::BEGIN@6 # spent 26µs making 1 call to Exporter::import
7	2	72µs	2	30µs	# spent 17µs (3+13) within SelectSaver::BEGIN@7 which was called: # once (3µs+13µs) by IO::Handle::BEGIN@267 at line 7 use Symbol; # spent 17µs making 1 call to SelectSaver::BEGIN@7 # spent 13µs making 1 call to Exporter::import
8
9					sub new {
10					@_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
11					my $fh = select;
12					my $self = bless \$fh, $_[0];
13					select qualify($_[1], caller) if @_ > 1;
14					$self;
15					}
16
17					sub DESTROY {
18					my $self = $_[0];
19					select $$self;
20					}
21
22	1	2µs			1;