← 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:46:17 2015

Filename/Users/ap13/perl5/lib/perl5/Graph/SPTHeapElem.pm
StatementsExecuted 10 statements in 375µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11122µs47µsGraph::SPTHeapElem::::BEGIN@3Graph::SPTHeapElem::BEGIN@3
11114µs96µsGraph::SPTHeapElem::::BEGIN@4Graph::SPTHeapElem::BEGIN@4
11114µs124µsGraph::SPTHeapElem::::BEGIN@7Graph::SPTHeapElem::BEGIN@7
11114µs40µsGraph::SPTHeapElem::::BEGIN@5Graph::SPTHeapElem::BEGIN@5
0000s0sGraph::SPTHeapElem::::cmpGraph::SPTHeapElem::cmp
0000s0sGraph::SPTHeapElem::::newGraph::SPTHeapElem::new
0000s0sGraph::SPTHeapElem::::valGraph::SPTHeapElem::val
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Graph::SPTHeapElem;
2
3249µs272µs
# spent 47µs (22+25) within Graph::SPTHeapElem::BEGIN@3 which was called: # once (22µs+25µs) by Graph::BEGIN@35 at line 3
use strict;
# spent 47µs making 1 call to Graph::SPTHeapElem::BEGIN@3 # spent 25µs making 1 call to strict::import
4261µs2178µs
# spent 96µs (14+82) within Graph::SPTHeapElem::BEGIN@4 which was called: # once (14µs+82µs) by Graph::BEGIN@35 at line 4
use vars qw($VERSION @ISA);
# spent 96µs making 1 call to Graph::SPTHeapElem::BEGIN@4 # spent 82µs making 1 call to vars::import
5241µs265µs
# spent 40µs (14+26) within Graph::SPTHeapElem::BEGIN@5 which was called: # once (14µs+26µs) by Graph::BEGIN@35 at line 5
use Heap071::Elem;
# spent 40µs making 1 call to Graph::SPTHeapElem::BEGIN@5 # spent 26µs making 1 call to Exporter::import
6
72219µs2233µs
# spent 124µs (14+109) within Graph::SPTHeapElem::BEGIN@7 which was called: # once (14µs+109µs) by Graph::BEGIN@35 at line 7
use base 'Heap071::Elem';
# spent 124µs making 1 call to Graph::SPTHeapElem::BEGIN@7 # spent 109µs making 1 call to base::import
8
91600ns$VERSION = 0.01;
10
11sub new {
12 my $class = shift;
13 bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
14}
15
16sub cmp {
17 ($_[0]->{ w } || 0) <=> ($_[1]->{ w } || 0) ||
18 ($_[0]->{ u } cmp $_[1]->{ u }) ||
19 ($_[0]->{ u } cmp $_[1]->{ v });
20}
21
22sub val {
23 @{ $_[0] }{ qw(u v w) };
24}
25
2615µs1;