Profile of SelectSaver.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:50 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/SelectSaver.pm
Statements | Executed 9 statements in 120µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 11µs | 39µs | SelectSaver::::BEGIN@38SelectSaver::BEGIN@38
1 | 1 | 1 | 6µs | 34µs | SelectSaver::::BEGIN@39SelectSaver::BEGIN@39
0 | 0 | 0 | 0s | 0s | SelectSaver::::DESTROYSelectSaver::DESTROY
0 | 0 | 0 | 0s | 0s | SelectSaver::::newSelectSaver::new

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 |  |  |  |  | =head1 NAME
6 |  |  |  |  |
7 |  |  |  |  | SelectSaver - save and restore selected file handle
8 |  |  |  |  |
9 |  |  |  |  | =head1 SYNOPSIS
10 |  |  |  |  |
11 |  |  |  |  | use SelectSaver;
12 |  |  |  |  |
13 |  |  |  |  | {
14 |  |  |  |  | my $saver = SelectSaver->new(FILEHANDLE);
15 |  |  |  |  | # FILEHANDLE is selected
16 |  |  |  |  | }
17 |  |  |  |  | # previous handle is selected
18 |  |  |  |  |
19 |  |  |  |  | {
20 |  |  |  |  | my $saver = SelectSaver->new;
21 |  |  |  |  | # new handle may be selected, or not
22 |  |  |  |  | }
23 |  |  |  |  | # previous handle is selected
24 |  |  |  |  |
25 |  |  |  |  | =head1 DESCRIPTION
26 |  |  |  |  |
27 |  |  |  |  | A C<SelectSaver> object contains a reference to the file handle that
28 |  |  |  |  | was selected when it was created. If its C<new> method gets an extra
29 |  |  |  |  | parameter, then that parameter is selected; otherwise, the selected
30 |  |  |  |  | file handle remains unchanged.
31 |  |  |  |  |
32 |  |  |  |  | When a C<SelectSaver> is destroyed, it re-selects the file handle
33 |  |  |  |  | that was selected when it was created.
34 |  |  |  |  |
35 |  |  |  |  | =cut
36 |  |  |  |  |
37 | 1 | 13µs |  |  | require 5.000;
38 | 3 | 17µs | 2 | 67µs | # spent 39µs (11+28) within SelectSaver::BEGIN@38 which was called: # once (11µs+28µs) by IO::File::BEGIN@132 at line 38 use Carp; # spent 39µs making 1 call to SelectSaver::BEGIN@38 # spent 28µs making 1 call to Exporter::import
39 | 3 | 87µs | 2 | 61µs | # spent 34µs (6+27) within SelectSaver::BEGIN@39 which was called: # once (6µs+27µs) by IO::File::BEGIN@132 at line 39 use Symbol; # spent 34µs making 1 call to SelectSaver::BEGIN@39 # spent 27µs making 1 call to Exporter::import
40 |  |  |  |  |
41 |  |  |  |  | sub new {
42 |  |  |  |  | @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
43 |  |  |  |  | my $fh = select;
44 |  |  |  |  | my $self = bless \$fh, $_[0];
45 |  |  |  |  | select qualify($_[1], caller) if @_ > 1;
46 |  |  |  |  | $self;
47 |  |  |  |  | }
48 |  |  |  |  |
49 |  |  |  |  | sub DESTROY {
50 |  |  |  |  | my $self = $_[0];
51 |  |  |  |  | select $$self;
52 |  |  |  |  | }
53 |  |  |  |  |
54 | 1 | 2µs |  |  | 1;