Profile of Tie/Hash/NamedCapture.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:22:36 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/Tie/Hash/NamedCapture.pm
Statements | Executed 11 statements in 41µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
2 | 2 | 1 | 11µs | 11µs | Tie::Hash::NamedCapture::::TIEHASHTie::Hash::NamedCapture::TIEHASH
1 | 1 | 1 | 2µs | 2µs | Tie::Hash::NamedCapture::::flagsTie::Hash::NamedCapture::flags (xsub)

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package Tie::Hash::NamedCapture;
2 |  |  |  |  |
3 | 1 | 500ns |  |  | our $VERSION = "0.06";
4 |  |  |  |  |
5 |  |  |  |  | # The real meat implemented in XS in universal.c in the core, but this
6 |  |  |  |  | # method was left behind because gv.c expects a Purl-Perl method in
7 |  |  |  |  | # this package when it loads the tie magic for %+ and %-
8 |  |  |  |  |
9 | 1 | 9µs | 1 | 2µs | my ($one, $all) = Tie::Hash::NamedCapture::flags(); # spent 2µs making 1 call to Tie::Hash::NamedCapture::flags
10 |  |  |  |  |
11 |  |  |  |  | # spent 11µs within Tie::Hash::NamedCapture::TIEHASH which was called 2 times, avg 5µs/call: # once (7µs+0s) by English::BEGIN@148 at line 17 # once (4µs+0s) by English::BEGIN@148 at line 18 sub TIEHASH {
12 | 6 | 21µs |  |  | my ($pkg, %arg) = @_;
13 |  |  |  |  | my $flag = $arg{all} ? $all : $one;
14 |  |  |  |  | bless \$flag => $pkg;
15 |  |  |  |  | }
16 |  |  |  |  |
17 | 1 | 4µs | 1 | 7µs | tie %+, __PACKAGE__; # spent 7µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
18 | 1 | 2µs | 1 | 4µs | tie %-, __PACKAGE__, all => 1; # spent 4µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
19 |  |  |  |  |
20 | 1 | 4µs |  |  | 1;
21 |  |  |  |  |
22 |  |  |  |  | __END__
|  |  |  |  | # spent 2µs within Tie::Hash::NamedCapture::flags which was called: # once (2µs+0s) by English::BEGIN@148 at line 9 sub Tie::Hash::NamedCapture::flags; # xsub