File Coverage

blib/lib/Graph/Traversal/BFS.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::BFS;
2              
3 1     1   457 use strict;
  1         2  
  1         30  
4 1     1   4 use warnings;
  1         2  
  1         23  
5              
6 1     1   422 use Graph::Traversal;
  1         3  
  1         33  
7 1     1   7 use base 'Graph::Traversal';
  1         2  
  1         167  
8              
9             sub current {
10 58     58 0 85 my $self = shift;
11 58         121 $self->{ order }->[ 0 ];
12             }
13              
14             sub see {
15 33     33 0 46 my $self = shift;
16 33         52 shift @{ $self->{ order } };
  33         89  
17             }
18              
19             *bfs = \&Graph::Traversal::postorder;
20              
21             1;
22             __END__