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   38 use Lingua::YaTeA::Node;
  5         12  
  5         41  
4              
5 5     5   148 use strict;
  5         19  
  5         104  
6 5     5   108 use warnings;
  5         16  
  5         670  
7              
8             our @ISA = qw(Lingua::YaTeA::Node);
9              
10             our $VERSION=$Lingua::YaTeA::VERSION;
11              
12             sub new
13             {
14 488     488 1 940 my ($class,$level) = @_;
15 488         1511 my $this = $class->SUPER::new($level);
16 488         874 bless ($this,$class);
17 488         1033 return $this;
18             }
19              
20              
21             1;
22              
23             __END__