File Coverage

blib/lib/Text/TestBase/SubTest/Node.pm
Criterion Covered Total %
statement 12 15 80.0
branch 2 2 100.0
condition n/a
subroutine 4 7 57.1
pod 0 4 0.0
total 18 28 64.2


line stmt bran cond sub pod time code
1             package Text::TestBase::SubTest::Node;
2 18     18   43815 use strict;
  18         40  
  18         650  
3 18     18   84 use warnings;
  18         46  
  18         717  
4             use Class::Accessor::Lite (
5 18         159 rw => [qw/parent_node index depth/],
6 18     18   917 );
  18         1271  
7              
8 0     0 0 0 sub new { die 'override it!' }
9 0     0 0 0 sub is_subtest { die 'override it!' }
10 0     0 0 0 sub get_lineno { die 'override it!' }
11              
12             sub next_sibling {
13 4     4 0 708 my ($self) = @_;
14 4 100       18 return unless $self->parent_node;
15 2         14 $self->parent_node->child_nodes($self->index + 1);
16             }
17              
18             1;
19