Changeset 7941 for lang/perl/Acme-Shukugawa-Atom

Timestamp:

03/14/08 10:06:37 (9 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; Make it possible to override the path to config

Files:

• lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm (modified) (2 diffs)

lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

@@ -17 +17 @@
 # Special case handling -- this could be optimized further
 # put it in a sharefile later
-our (@DEFAULT_WORDS, $RE_EXCEPTION, $RE_SMALL, $RE_SYLLABLE, $RE_NBAR);
+our ($CONFIG, @DEFAULT_WORDS, $RE_EXCEPTION, $RE_SMALL, $RE_SYLLABLE, $RE_NBAR);
 BEGIN
 {
-    my $config = YAML::LoadFile( File::ShareDir::module_file(__PACKAGE__, 'config.yaml') );
+    my $config = YAML::LoadFile( 
+        $CONFIG || File::ShareDir::module_file(__PACKAGE__, 'config.yaml') );
     $RE_SMALL    = decode_utf8("[ャュョッー]");
     $RE_SYLLABLE = decode_utf8("(?:.$RE_SMALL?)");
@@ -233 +234 @@
   my $newstring = Acme::Shukugawa::Atom->translate($string);
 
+  # By default, share/config.yaml is used (via File::ShareDir) for custom
+  # fixed replacements. You can however override this by specifying the
+  # alternate config filename at load time
+  BEGIN
+  {
+    $Acme::Shukugawa::Atom::CONFIG = '/path/to/config.yaml';
+  }
+  use Acme::Shukugawa::Atom;
+  
+  # Or you can specify them (on top of the default words) at run time
   my $atom = Acme::Shukugawa::Atom->new(
     # The default values are stored in @Acme::Shukugawa::Atom::DEFAULT_WORDS