Profile of SelectSaver.pm

← Index
NYTProf Performance Profile «line view»
For script/ponapi
Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:09 2016

Filename | /usr/share/perl/5.18/SelectSaver.pm
Statements | Executed 700028 statements in 4.85s

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
100003 | 1 | 1 | 2.45s | 3.65s | SelectSaver::::newSelectSaver::new
300009 | 3 | 1 | 1.05s | 1.05s | SelectSaver::::CORE:selectSelectSaver::CORE:select (opcode)
100003 | 1 | 1 | 868ms | 930ms | SelectSaver::::DESTROYSelectSaver::DESTROY
1 | 1 | 1 | 9µs | 34µs | SelectSaver::::BEGIN@6SelectSaver::BEGIN@6
1 | 1 | 1 | 6µs | 28µs | SelectSaver::::BEGIN@7SelectSaver::BEGIN@7

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 | 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 use Carp; # 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 use Symbol; # 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 sub new {
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 sub DESTROY {
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 sub SelectSaver::CORE:select; # opcode