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   23558 use strict;
  2         3  
  2         48  
4 2     2   8 use warnings;
  2         2  
  2         70  
5              
6             our $VERSION = '0.15';
7              
8 2     2   6 use base qw(Tree::Simple::Visitor);
  2         3  
  2         924  
9              
10             # make sure we use the "new" interface
11             # so we enforce it here
12             sub new {
13 13     13 1 1788 my ($_class) = @_;
14 13   33     54 my $class = ref($_class) || $_class;
15 13         34 my $visitor = $class->SUPER::new();
16 13         198 return $visitor;
17             }
18              
19             1;
20              
21             __END__