File Coverage

blib/lib/WWW/HyperGlossary/Word/Definition.pm

Criterion	Covered	Total	%
statement	30	41	73.1
branch			n/a
condition			n/a
subroutine	10	16	62.5
pod	0	6	0.0
total	40	63	63.4

package WWW::HyperGlossary::Word::Definition;
use base qw(WWW::HyperGlossary::Base);
use Class::Std;
use Class::Std::Utils;
use DBI;
use DBIx::MySperql qw(DBConnect SQLExec $dbh);
use Digest::MD5 qw (md5_hex);

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.2');

{
	my %definition_id_of : ATTR( :init_arg );
	my %word_id_of     : ATTR( :init_arg );
	my %language_id_of : ATTR( :init_arg );
	my %word_of        : ATTR( :init_arg );

	sub get_word_id       { my ($self)  = @_; return $word_id_of{ident $self}; }
	sub get_language_id   { my ($self)  = @_; return $language_id_of{ident $self}; }
	sub get_word          { my ($self)  = @_; return $word_of{ident $self}; }
	sub get_definition_id { my ($self)  = @_; return $definition_id_of{ident $self}; }

	sub BUILD {
		my ($self, $ident, $arg_ref) = @_;

		return;
	}

	sub get_definitions {
	}

}

1; # Magic true value required at end of module
__END__