File Coverage

blib/lib/Lingua/YaTeA/AnnotationMark.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::AnnotationMark;
2 3     3   19 use strict;
  3         7  
  3         84  
3 3     3   16 use warnings;
  3         6  
  3         71  
4 3     3   1207 use Lingua::YaTeA::WordOccurrence;
  3         9  
  3         35  
5              
6             our @ISA = qw(Lingua::YaTeA::WordOccurrence);
7              
8             our $VERSION=$Lingua::YaTeA::VERSION;
9              
10             sub new
11             {
12 18     18 1 48 my ($class,$form,$id,$type) = @_;
13 18         61 my $this = $class->SUPER::new($form);
14 18         32 bless ($this,$class);
15 18         37 $this->{ID} = $id;
16 18         36 $this->{TYPE} = $type;
17 18         39 return $this;
18             }
19              
20             sub getType
21             {
22 18     18 1 66 my ($this) = @_;
23 18         61 return $this->{TYPE};
24             }
25              
26             sub getID
27             {
28 6     6 1 10 my ($this) = @_;
29 6         22 return $this->{ID};
30             }
31              
32             1;
33              
34             __END__