File Coverage

blib/lib/Lingua/YaTeA/ParsingPatternRecord.pm
Criterion Covered Total %
statement 20 30 66.6
branch n/a
condition n/a
subroutine 6 8 75.0
pod 5 5 100.0
total 31 43 72.0


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::ParsingPatternRecord;
2 5     5   39 use strict;
  5         10  
  5         138  
3 5     5   26 use warnings;
  5         11  
  5         128  
4              
5 5     5   1950 use Lingua::YaTeA::ParsingPattern;
  5         17  
  5         83  
6              
7             our $VERSION=$Lingua::YaTeA::VERSION;
8              
9             sub new
10             {
11 280     280 1 550 my ($class,$name) = @_;
12 280         498 my $this = {};
13 280         508 bless ($this,$class);
14 280         621 $this->{NAME} = $name;
15 280         545 $this->{PARSING_PATTERNS} = ();
16 280         992 return $this;
17             }
18              
19             sub getName
20             {
21 0     0 1 0 my ($this) = @_;
22 0         0 return $this->{NAME};
23              
24             }
25              
26             sub addPattern
27             {
28 280     280 1 494 my ($this,$pattern) = @_;
29 280         410 push @{$this->{PARSING_PATTERNS}}, $pattern;
  280         808  
30             }
31              
32             sub getPatterns
33             {
34 66     66 1 134 my ($this) = @_;
35 66         252 return $this->{PARSING_PATTERNS};
36             }
37              
38             sub print
39             {
40 0     0 1   my ($this) = @_;
41 0           my $pattern;
42 0           print"[";
43 0           print $this->getName . "\n";
44 0           foreach $pattern (@{$this->getPatterns})
  0            
45             {
46 0           $pattern->print;
47             }
48 0           print "]\n";
49             }
50              
51              
52             1;
53              
54             __END__