← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/pan_genome_post_analysis
  Run on Fri Mar 27 11:43:32 2015
Reported on Fri Mar 27 11:45:51 2015

Filename/Users/ap13/perl5/lib/perl5/Graph/Traversal/DFS.pm
StatementsExecuted 59728 statements in 65.0ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
198851131.9ms31.9msGraph::Traversal::DFS::::currentGraph::Traversal::DFS::current
99751110.8ms10.8msGraph::Traversal::DFS::::seeGraph::Traversal::DFS::see
1113.57ms3.60msGraph::Traversal::DFS::::BEGIN@5Graph::Traversal::DFS::BEGIN@5
11123µs154µsGraph::Traversal::DFS::::BEGIN@6Graph::Traversal::DFS::BEGIN@6
11120µs47µsGraph::Traversal::DFS::::BEGIN@3Graph::Traversal::DFS::BEGIN@3
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Graph::Traversal::DFS;
2
3232µs274µs
# spent 47µs (20+27) within Graph::Traversal::DFS::BEGIN@3 which was called: # once (20µs+27µs) by Graph::BEGIN@33 at line 3
use strict;
# spent 47µs making 1 call to Graph::Traversal::DFS::BEGIN@3 # spent 27µs making 1 call to strict::import
4
52147µs13.60ms
# spent 3.60ms (3.57+30µs) within Graph::Traversal::DFS::BEGIN@5 which was called: # once (3.57ms+30µs) by Graph::BEGIN@33 at line 5
use Graph::Traversal;
# spent 3.60ms making 1 call to Graph::Traversal::DFS::BEGIN@5
62149µs2284µs
# spent 154µs (23+131) within Graph::Traversal::DFS::BEGIN@6 which was called: # once (23µs+131µs) by Graph::BEGIN@33 at line 6
use base 'Graph::Traversal';
# spent 154µs making 1 call to Graph::Traversal::DFS::BEGIN@6 # spent 131µs making 1 call to base::import
7
8
# spent 31.9ms within Graph::Traversal::DFS::current which was called 19885 times, avg 2µs/call: # 19885 times (31.9ms+0s) by Graph::Traversal::next at line 283 of Graph/Traversal.pm, avg 2µs/call
sub current {
93977043.4ms my $self = shift;
10 $self->{ order }->[ -1 ];
11}
12
13
# spent 10.8ms within Graph::Traversal::DFS::see which was called 9975 times, avg 1µs/call: # 9975 times (10.8ms+0s) by Graph::Traversal::__ANON__[/Users/ap13/perl5/lib/perl5/Graph/Traversal.pm:26] at line 25 of Graph/Traversal.pm, avg 1µs/call
sub see {
141995021.3ms my $self = shift;
15 pop @{ $self->{ order } };
16}
17
1813µs*dfs = \&Graph::Traversal::postorder;
19
2017µs1;
21__END__