File Coverage

blib/lib/Graph/Traversal/DFS.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Graph::Traversal::DFS;
2              
3 10     10   549 use strict;
  10         25  
  10         306  
4 10     10   49 use warnings;
  10         20  
  10         267  
5              
6 10     10   4828 use Graph::Traversal;
  10         26  
  10         327  
7 10     10   75 use base 'Graph::Traversal';
  10         20  
  10         1709  
8              
9             sub current {
10 1260     1260 0 1735 my $self = shift;
11 1260         2883 $self->{ order }->[ -1 ];
12             }
13              
14             sub see {
15 746     746 0 1006 my $self = shift;
16 746         960 pop @{ $self->{ order } };
  746         2021  
17             }
18              
19             *dfs = \&Graph::Traversal::postorder;
20              
21             1;
22             __END__