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   30 use Lingua::YaTeA::Node;
  5         9  
  5         30  
4              
5 5     5   123 use strict;
  5         8  
  5         81  
6 5     5   87 use warnings;
  5         12  
  5         515  
7              
8             our @ISA = qw(Lingua::YaTeA::Node);
9              
10             our $VERSION=$Lingua::YaTeA::VERSION;
11              
12             sub new
13             {
14 488     488 1 748 my ($class,$level) = @_;
15 488         1099 my $this = $class->SUPER::new($level);
16 488         715 bless ($this,$class);
17 488         783 return $this;
18             }
19              
20              
21             1;
22              
23             __END__