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   498 use strict;
  10         22  
  10         279  
4 10     10   45 use warnings;
  10         18  
  10         264  
5              
6 10     10   3983 use Graph::Traversal;
  10         23  
  10         300  
7 10     10   65 use base 'Graph::Traversal';
  10         17  
  10         1597  
8              
9             sub current {
10 1223     1223 0 1469 my $self = shift;
11 1223         2187 $self->{ order }->[ -1 ];
12             }
13              
14             sub see {
15 732     732 0 848 my $self = shift;
16 732         823 pop @{ $self->{ order } };
  732         1556  
17             }
18              
19             *dfs = \&Graph::Traversal::postorder;
20              
21             1;
22             __END__