File Coverage

blib/lib/Lingua/YaTeA/RootNode.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::RootNode;
2              
3 5     5   36 use Lingua::YaTeA::Node;
  5         12  
  5         53  
4              
5 5     5   156 use strict;
  5         15  
  5         108  
6 5     5   114 use warnings;
  5         14  
  5         638  
7              
8             our @ISA = qw(Lingua::YaTeA::Node);
9              
10             our $VERSION=$Lingua::YaTeA::VERSION;
11              
12             sub new
13             {
14 488     488 1 980 my ($class,$level) = @_;
15 488         1414 my $this = $class->SUPER::new($level);
16 488         850 bless ($this,$class);
17 488         987 return $this;
18             }
19              
20              
21             1;
22              
23             __END__