← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/hailo
  Run on Thu Oct 21 22:50:37 2010
Reported on Thu Oct 21 22:52:05 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Tie/Hash/NamedCapture.pm
StatementsExecuted 11 statements in 53µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
217042146.4ms46.4msTie::Hash::NamedCapture::::FETCHTie::Hash::NamedCapture::FETCH (xsub)
22117µs17µsTie::Hash::NamedCapture::::TIEHASHTie::Hash::NamedCapture::TIEHASH
1112µs2µsTie::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
1package Tie::Hash::NamedCapture;
2
311µsour $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
9110µs12µsmy ($one, $all) = Tie::Hash::NamedCapture::flags();
# spent 2µs making 1 call to Tie::Hash::NamedCapture::flags
10
11
# spent 17µs within Tie::Hash::NamedCapture::TIEHASH which was called 2 times, avg 9µs/call: # once (10µs+0s) by Hailo::BEGIN@178 at line 17 # once (7µs+0s) by Hailo::BEGIN@178 at line 18
sub TIEHASH {
12621µs my ($pkg, %arg) = @_;
13 my $flag = $arg{all} ? $all : $one;
14 bless \$flag => $pkg;
15}
16
1719µs110µstie %+, __PACKAGE__;
# spent 10µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
1815µs17µstie %-, __PACKAGE__, all => 1;
# spent 7µs making 1 call to Tie::Hash::NamedCapture::TIEHASH
19
2015µs1;
21
22__END__
 
# spent 46.4ms within Tie::Hash::NamedCapture::FETCH which was called 21704 times, avg 2µs/call: # 21651 times (46.3ms+0s) by Hailo::Tokenizer::Words::make_tokens at line 136 of lib/Hailo/Tokenizer/Words.pm, avg 2µs/call # 53 times (115µs+0s) by Hailo::Tokenizer::Words::make_tokens at line 83 of lib/Hailo/Tokenizer/Words.pm, avg 2µs/call
sub Tie::Hash::NamedCapture::FETCH; # xsub
# spent 2µs within Tie::Hash::NamedCapture::flags which was called: # once (2µs+0s) by Hailo::BEGIN@178 at line 9
sub Tie::Hash::NamedCapture::flags; # xsub