File Coverage

blib/lib/Text/ParseAHD/Word.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Text::ParseAHD::Word;
#use base qw(BASE);
use Class::Std;
use Class::Std::Utils;
use Text::ParseAHD::Definition;

use warnings;
use strict;
use Carp;

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

our $root_dir = '/home/roger/projects/comprehension/dictionary/dictionary.reference.com/browse/';

{
        my %word_id_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %word_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %syllables_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %defs_of  :ATTR( :get   :set   :default<[]>    :init_arg );
        my %text_of  :ATTR( :get   :set   :default<''>    :init_arg );
        my %pos_of  :ATTR( :get   :set   :default<''>    :init_arg );


        sub START {
                my ($self, $ident, $arg_ref) = @_;
		print "\nMY WORD IS: $word_of{$ident}\n";
                return;
        }
	sub add_definition {
		my ( $self, $text, $example, $pos) = @_;
		my $list = $self->get_defs();
		push @$list, Text::ParseAHD::Definition->new({text=>$text, example => $example, pos => $pos});
		$self->set_defs($list);
	}

}

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