← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/local/src/github.com/foswiki/core/bin/view
  Run on Sun Dec 4 17:17:59 2011
Reported on Sun Dec 4 17:27:04 2011

Filename/usr/share/perl/5.14/SelectSaver.pm
StatementsExecuted 7 statements in 230µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs120µsSelectSaver::::BEGIN@6SelectSaver::BEGIN@6
11116µs126µ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
312µsour $VERSION = '1.02';
4
5114µsrequire 5.000;
6245µs2216µs
# spent 120µs (24+96) within SelectSaver::BEGIN@6 which was called: # once (24µs+96µs) by IO::File::BEGIN@10 at line 6
use Carp;
# spent 120µs making 1 call to SelectSaver::BEGIN@6 # spent 96µs making 1 call to Exporter::import
72164µs2236µs
# spent 126µs (16+110) within SelectSaver::BEGIN@7 which was called: # once (16µs+110µs) by IO::File::BEGIN@10 at line 7
use Symbol;
# spent 126µs making 1 call to SelectSaver::BEGIN@7 # spent 110µ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
2215µs1;