File Coverage

blib/lib/WWW/HyperGlossary/Word.pm

Criterion	Covered	Total	%
statement	30	40	75.0
branch			n/a
condition			n/a
subroutine	10	15	66.6
pod	0	5	0.0
total	40	60	66.6

package WWW::HyperGlossary::Word;
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 %word_id_of     : ATTR( :init_arg );
	my %language_id_of : ATTR( :init_arg );
	my %word_of        : ATTR( :init_arg );
	my %definitions_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_definitions  { my ($self)  = @_; return $definitions_of{ident $self}; }

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

		return;
	}


}

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