← 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
StatementsExecuted 700028 statements in 4.85s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
100003112.45s3.65sSelectSaver::::newSelectSaver::new
300009311.05s1.05sSelectSaver::::CORE:selectSelectSaver::CORE:select (opcode)
10000311868ms930msSelectSaver::::DESTROYSelectSaver::DESTROY
1119µs34µsSelectSaver::::BEGIN@6SelectSaver::BEGIN@6
1116µs28µsSelectSaver::::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
1package SelectSaver;
2
31400nsour $VERSION = '1.02';
4
516µsrequire 5.000;
6219µs260µ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
7290µs250µ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 {
10100003182ms @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
11100003894ms100003272ms my $fh = select;
# spent 272ms making 100003 calls to SelectSaver::CORE:select, avg 3µs/call
12100003172ms my $self = bless \$fh, $_[0];
131000031.63s200006932ms 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
14100003670ms $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 {
1810000361.1ms my $self = $_[0];
191000031.24s10000362.6ms select $$self;
# spent 62.6ms making 100003 calls to SelectSaver::CORE:select, avg 626ns/call
20}
21
2212µs1;
 
# 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