File Coverage

blib/lib/Wiktionary/Parser/Section/Pronunciation/Representation.pm

Criterion	Covered	Total	%
statement	4	12	33.3
branch			n/a
condition			n/a
subroutine	1	5	20.0
pod	0	5	0.0
total	5	22	22.7

package Wiktionary::Parser::Section::Pronunciation::Representation;

# keys:
#  representation: IPA, SAMPA, prUS
#  pronunciation: string representing pronunciation in the given representation format
#  context: e.g. en(US), en(UK)
sub new {
	my $class = shift;
	my %args = @_;
	my $self = bless \%args, $class;
	return $self;
}

sub get_representation {
	my $self = shift;
	return $self->{representation};
}

sub get_pronunciation {
	my $self = shift;
	return $self->{pronunciation};
}

sub get_context {
	my $self = shift;
	return $self->{context};
}

sub get_senses {
	my $self = shift;
	return $self->{senses};
}

1;