File Coverage

blib/lib/Lingua/ZH/ZhuYin/Dict.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	6	50.0
condition	2	4	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	45	50	90.0

package Lingua::ZH::ZhuYin::Dict;

use warnings;
use strict;

=head1 NAME

Lingua::ZH::ZhuYin::Dict - The backend dictionary for converting zhuyin

=head1 VERSION

Version 0.03

=cut

our $VERSION = 0.03;
use DBI qw(:sql_types);
use DBD::SQLite;

=head1 SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

    use Lingua::ZH::ZhuYin::Dict;

    my $zhuyin = Lingua::ZH::ZhuYin::Dict::QueryZuyin($word);
    ...

=head1 EXPORT

A list of functions that can be exported.  You can delete this section
if you don't export anything, such as for a purely object-oriented module.

=head1 FUNCTIONS

=head2 new

=cut

sub new {
    my $class = shift;
    my $self = {
	table => undef,
	dbh => undef,
    };
    my $dictFile = shift || 'moedict.db';
    if ( -f $dictFile ) {
	my $dsn = "dbi:SQLite:dbname=$dictFile";
	$self->{dbh} = DBI->connect($dsn, "","");
    }
    ($self->{table}) = ($dictFile =~ /(\w+)\.db/);
    $self->{table} ||= 'moedict';
    bless ($self, $class);
    return($self);
}

=head2 queryZhuYin

=cut

sub queryZhuYin {
    my $self = shift;
    my $word = shift;

    return unless $self->{dbh};

    my @zhuyins;
    my $table = $self->{table};
    my $sth = $self->{dbh}->prepare("SELECT zhuyin from $table WHERE word = ?");
    $sth->execute($word) || die DBI::err.": ".$DBI::errstr;
    while (my $hash_ref = $sth->fetchrow_hashref) {
	push @zhuyins, $hash_ref->{zhuyin};
    }
    return @zhuyins;
}

=head1 AUTHOR

Cheng-Lung Sung, C<<  >>

=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2008 Cheng-Lung Sung, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


=cut

1; # End of Lingua::ZH::ZhuYin::Dict