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   533 use strict;
  10         22  
  10         303  
4 10     10   50 use warnings;
  10         18  
  10         255  
5              
6 10     10   4623 use Graph::Traversal;
  10         25  
  10         317  
7 10     10   67 use base 'Graph::Traversal';
  10         21  
  10         1662  
8              
9             sub current {
10 1243     1243 0 1768 my $self = shift;
11 1243         2798 $self->{ order }->[ -1 ];
12             }
13              
14             sub see {
15 738     738 0 1023 my $self = shift;
16 738         958 pop @{ $self->{ order } };
  738         2043  
17             }
18              
19             *dfs = \&Graph::Traversal::postorder;
20              
21             1;
22             __END__