← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:10 2010

File /usr/share/perl/5.10/SelectSaver.pm
Statements Executed 9
Total Time 0.0002002 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sSelectSaver::::BEGINSelectSaver::BEGIN
0000s0sSelectSaver::::DESTROYSelectSaver::DESTROY
0000s0sSelectSaver::::newSelectSaver::new
LineStmts.Exclusive
Time
Avg.Code
1package SelectSaver;
2
31700ns700nsour $VERSION = '1.01';
4
5124µs24µsrequire 5.000;
6325µs8µsuse Carp;
# spent 52µs making 1 call to Exporter::import
73146µs49µsuse Symbol;
# spent 54µs making 1 call to Exporter::import
8
9sub new {
10 @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [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
2214µs4µs1;