Changeset 4339 for lang/perl/Text-MeCab

Timestamp:

01/10/08 11:38:13 (5 years ago)

Author:

daisuke

Message:

lang/perl/Text-MeCab?; more small fixes, docs

Location:

lang/perl/Text-MeCab/trunk/lib/Text

Files:

• MeCab.pm (modified) (1 diff)
• MeCab/Dict.pm (modified) (6 diffs)

lang/perl/Text-MeCab/trunk/lib/Text/MeCab.pm

@@ -270 +270 @@
 =head2 MECAB_UNK_DIC
 
+=head2 MECAB_CONFIG
+
+Path to mecab-config, if available.
+
 =head1 SEE ALSO
 

lang/perl/Text-MeCab/trunk/lib/Text/MeCab/Dict.pm

@@ -31 +31 @@
         $libexecdir = $args{libexecdir};
     } else {
-        $libexecdir = Path::Class::Dir->new(`$config --libexecdir`);
+        $libexecdir = `$config --libexecdir`;
+        chomp $libexecdir;
     }
 
@@ -37 +38 @@
         die "You must specify dict_source and libexecdir";
     }
+    $dict_source = Path::Class::Dir->new($dict_source);
+    $libexecdir = Path::Class::Dir->new($libexecdir);
 
     my $self  = bless {
@@ -82 +85 @@
 
     $file = Path::Class::File->new($file);
+    if (! $file->is_absolute) {
+        $file = $self->dict_source->file( $file );
+    }
+
     my $fh = $file->open(">>");
-    $fh->print(join("\n", @output));
+    $fh->print(join("\n", @output, ""));
     $fh->close;
 
@@ -107 +114 @@
         foreach my $cmd (@cmds) {
             if (system(@$cmd) != 0) {
-                die "Failed to execute '@$cmd'";
+                die "Failed to execute '@$cmd': $!";
             }
         }
@@ -152 +159 @@
   use Text::MeCab::Dict;
 
-  my $dict = Text::MeCab::Dict->new();
+  my $dict = Text::MeCab::Dict->new(
+    dict_source => "/path/to/mecab-ipadic-source"
+  );
   $dict->add(
     surface      => $surface,        # 表層形
@@ -178 +187 @@
 =head1 METHODS
 
+=head2 new
+
+Creates a new instance of Text::MeCab::Dict. 
+
+The path to the source of mecab-ipadic is required:
+
+  my $dict = Text::MeCab::Dict->new(
+    dict_source => "/path/to/mecab-ipadic-source"
+  );
+
+If you are in an environment where mecab-config is NOT available, you must
+also specify libexecdir, which is where mecab-dict-index is installed:
+
+  my $dict = Text::MeCab::Dict->new(
+    dict_source => "/path/to/mecab-ipadic-source",
+    libexecdir  => "/path/to/mecab/libexec/",
+  );
+
+=head2 add
+
+Adds a new entry to be appended to the dictionary. Please see SYNOPSIS for
+arguments.
+
+=head2 write
+
+Writes out the entries that were added via add() to the specified file
+location. If the file name does not look like an absolute path, the name
+will be treated relatively from dict_source
+
 =head2 rebuild