Filename | /Users/ap13/perl5/lib/perl5/Graph/Undirected.pm |
Statements | Executed 79 statements in 546µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
36 | 1 | 1 | 389µs | 5.67ms | new | Graph::Undirected::
1 | 1 | 1 | 18µs | 18µs | BEGIN@3 | Graph::Undirected::
1 | 1 | 1 | 14µs | 35µs | BEGIN@5 | Graph::Undirected::
1 | 1 | 1 | 13µs | 119µs | BEGIN@4 | Graph::Undirected::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Graph::Undirected; | ||||
2 | |||||
3 | 2 | 51µs | 1 | 18µs | # spent 18µs within Graph::Undirected::BEGIN@3 which was called:
# once (18µs+0s) by Graph::BEGIN@36 at line 3 # spent 18µs making 1 call to Graph::Undirected::BEGIN@3 |
4 | 2 | 41µs | 2 | 224µs | # spent 119µs (13+106) within Graph::Undirected::BEGIN@4 which was called:
# once (13µs+106µs) by Graph::BEGIN@36 at line 4 # spent 119µs making 1 call to Graph::Undirected::BEGIN@4
# spent 106µs making 1 call to base::import |
5 | 2 | 118µs | 2 | 57µs | # spent 35µs (14+22) within Graph::Undirected::BEGIN@5 which was called:
# once (14µs+22µs) by Graph::BEGIN@36 at line 5 # spent 35µs making 1 call to Graph::Undirected::BEGIN@5
# spent 22µs making 1 call to strict::import |
6 | |||||
7 | =pod | ||||
8 | |||||
9 | =head1 NAME | ||||
10 | |||||
11 | Graph::Undirected - undirected graphs | ||||
12 | |||||
13 | =head1 SYNOPSIS | ||||
14 | |||||
15 | use Graph::Undirected; | ||||
16 | my $g = Graph::Undirected->new; | ||||
17 | |||||
18 | # Or alternatively: | ||||
19 | |||||
20 | use Graph; | ||||
21 | my $g = Graph->new(undirected => 1); | ||||
22 | my $g = Graph->new(directed => 0); | ||||
23 | |||||
24 | =head1 DESCRIPTION | ||||
25 | |||||
26 | Graph::Undirected allows you to create undirected graphs. | ||||
27 | |||||
28 | For the available methods, see L<Graph>. | ||||
29 | |||||
30 | =head1 SEE ALSO | ||||
31 | |||||
32 | L<Graph>, L<Graph::Directed> | ||||
33 | |||||
34 | =head1 AUTHOR AND COPYRIGHT | ||||
35 | |||||
36 | Jarkko Hietaniemi F<jhi@iki.fi> | ||||
37 | |||||
38 | =head1 LICENSE | ||||
39 | |||||
40 | This module is licensed under the same terms as Perl itself. | ||||
41 | |||||
42 | =cut | ||||
43 | |||||
44 | # spent 5.67ms (389µs+5.28) within Graph::Undirected::new which was called 36 times, avg 158µs/call:
# 36 times (389µs+5.28ms) by Graph::MST_Prim at line 2394 of Graph.pm, avg 158µs/call | ||||
45 | 72 | 333µs | my $class = shift; | ||
46 | 36 | 5.28ms | bless Graph->new(undirected => 1, @_), ref $class || $class; # spent 5.28ms making 36 calls to Graph::new, avg 147µs/call | ||
47 | } | ||||
48 | |||||
49 | 1 | 3µs | 1; |