← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 10:04:38 2014
Reported on Tue Jun 24 10:05:07 2014

Filename/usr/share/perl/5.14/SelectSaver.pm
StatementsExecuted 7 statements in 133µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11113µs46µsSelectSaver::::BEGIN@6SelectSaver::BEGIN@6
1117µs38µsSelectSaver::::BEGIN@7SelectSaver::BEGIN@7
0000s0sSelectSaver::::DESTROYSelectSaver::DESTROY
0000s0sSelectSaver::::newSelectSaver::new
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
31500nsour $VERSION = '1.02';
4
5110µsrequire 5.000;
6224µs278µs
# spent 46µs (13+33) within SelectSaver::BEGIN@6 which was called: # once (13µs+33µs) by IO::File::BEGIN@10 at line 6
use Carp;
# spent 46µs making 1 call to SelectSaver::BEGIN@6 # spent 33µs making 1 call to Exporter::import
7296µs268µs
# spent 38µs (7+31) within SelectSaver::BEGIN@7 which was called: # once (7µs+31µs) by IO::File::BEGIN@10 at line 7
use Symbol;
# spent 38µs making 1 call to SelectSaver::BEGIN@7 # spent 31µs making 1 call to Exporter::import
8
9sub 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
17sub DESTROY {
18 my $self = $_[0];
19 select $$self;
20}
21
2213µs1;