File Coverage

blib/lib/Wiktionary/Parser/Section/Antonym.pm
Criterion Covered Total %
statement 6 12 50.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 18 44.4


line stmt bran cond sub pod time code
1             package Wiktionary::Parser::Section::Antonym;
2              
3 3     3   19 use Wiktionary::Parser::Section::Classifications;
  3         5  
  3         95  
4              
5 3     3   17 use base qw(Wiktionary::Parser::Section::Classifications);
  3         7  
  3         531  
6              
7             sub new {
8 0     0 0   my $class = shift;
9 0           my %args = @_;
10 0           my $self = bless Wiktionary::Parser::Section::Classifications->new(%args), $class;
11 0           return $self;
12             }
13              
14             sub get_antonyms {
15 0     0 0   my $self = shift;
16 0           return $self->{groups};
17             }
18              
19             1;