File Coverage

blib/lib/Tree/Simple/Visitor/PreOrderTraversal.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 1 1 100.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Tree::Simple::Visitor::PreOrderTraversal;
2              
3 2     2   69475 use strict;
  2         12  
  2         60  
4 2     2   11 use warnings;
  2         4  
  2         90  
5              
6             our $VERSION = '0.16';
7              
8 2     2   11 use base qw(Tree::Simple::Visitor);
  2         3  
  2         698  
9              
10             # make sure we use the "new" interface
11             # so we enforce it here
12             sub new {
13 13     13 1 2326 my ($_class) = @_;
14 13   33     68 my $class = ref($_class) || $_class;
15 13         61 my $visitor = $class->SUPER::new();
16 13         338 return $visitor;
17             }
18              
19             1;
20              
21             __END__