| 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 | Graph::Undirected::new |
| 1 | 1 | 1 | 18µs | 18µs | Graph::Undirected::BEGIN@3 |
| 1 | 1 | 1 | 14µs | 35µs | Graph::Undirected::BEGIN@5 |
| 1 | 1 | 1 | 13µs | 119µs | Graph::Undirected::BEGIN@4 |
| 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 | 36 | 24µs | my $class = shift; | ||
| 46 | 36 | 309µs | 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; |