Filename | /usr/share/perl/5.18/SelectSaver.pm |
Statements | Executed 700028 statements in 4.85s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
100003 | 1 | 1 | 2.45s | 3.65s | new | SelectSaver::
300009 | 3 | 1 | 1.05s | 1.05s | CORE:select (opcode) | SelectSaver::
100003 | 1 | 1 | 868ms | 930ms | DESTROY | SelectSaver::
1 | 1 | 1 | 9µs | 34µs | BEGIN@6 | SelectSaver::
1 | 1 | 1 | 6µs | 28µs | BEGIN@7 | SelectSaver::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package SelectSaver; | ||||
2 | |||||
3 | 1 | 400ns | our $VERSION = '1.02'; | ||
4 | |||||
5 | 1 | 6µs | require 5.000; | ||
6 | 2 | 19µs | 2 | 60µs | # spent 34µs (9+25) within SelectSaver::BEGIN@6 which was called:
# once (9µs+25µs) by IO::File::BEGIN@10 at line 6 # spent 34µs making 1 call to SelectSaver::BEGIN@6
# spent 26µs making 1 call to Exporter::import |
7 | 2 | 90µs | 2 | 50µs | # spent 28µs (6+22) within SelectSaver::BEGIN@7 which was called:
# once (6µs+22µs) by IO::File::BEGIN@10 at line 7 # spent 28µs making 1 call to SelectSaver::BEGIN@7
# spent 22µs making 1 call to Exporter::import |
8 | |||||
9 | # spent 3.65s (2.45+1.20) within SelectSaver::new which was called 100003 times, avg 37µs/call:
# 100003 times (2.45s+1.20s) by IO::Handle::autoflush at line 236 of IO/Handle.pm, avg 37µs/call | ||||
10 | 100003 | 182ms | @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; | ||
11 | 100003 | 894ms | 100003 | 272ms | my $fh = select; # spent 272ms making 100003 calls to SelectSaver::CORE:select, avg 3µs/call |
12 | 100003 | 172ms | my $self = bless \$fh, $_[0]; | ||
13 | 100003 | 1.63s | 200006 | 932ms | select qualify($_[1], caller) if @_ > 1; # spent 718ms making 100003 calls to SelectSaver::CORE:select, avg 7µs/call
# spent 214ms making 100003 calls to Symbol::qualify, avg 2µs/call |
14 | 100003 | 670ms | $self; | ||
15 | } | ||||
16 | |||||
17 | # spent 930ms (868+62.6) within SelectSaver::DESTROY which was called 100003 times, avg 9µs/call:
# 100003 times (868ms+62.6ms) by IO::Handle::autoflush at line 44 of IO/Socket.pm, avg 9µs/call | ||||
18 | 100003 | 61.1ms | my $self = $_[0]; | ||
19 | 100003 | 1.24s | 100003 | 62.6ms | select $$self; # spent 62.6ms making 100003 calls to SelectSaver::CORE:select, avg 626ns/call |
20 | } | ||||
21 | |||||
22 | 1 | 2µs | 1; | ||
# spent 1.05s within SelectSaver::CORE:select which was called 300009 times, avg 4µs/call:
# 100003 times (718ms+0s) by SelectSaver::new at line 13, avg 7µs/call
# 100003 times (272ms+0s) by SelectSaver::new at line 11, avg 3µs/call
# 100003 times (62.6ms+0s) by SelectSaver::DESTROY at line 19, avg 626ns/call |