* Added support to automatically purge the lexicon cache and reread the MO file on calling textdomain() when MO file is updated. This enables MO file live update with persistant applications like Mojolicious or mod_perl.

* Advanced to version 1.29.

t/12-cache.t

@@ -0,0 +1,71 @@
+#! /usr/bin/perl -w
+# Basic test suite
+# Copyright (c) 2019 imacat. All rights reserved. This program is free
+# software; you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+
+use 5.008;
+use strict;
+use warnings;
+use Test;
+
+BEGIN { plan tests => 4 }
+
+use FindBin;
+use File::Spec::Functions qw(catdir catfile);
+use lib $FindBin::Bin;
+use vars qw($LOCALEDIR $r);
+$LOCALEDIR = catdir($FindBin::Bin, "locale");
+
+# bindtextdomain
+$r = eval {
+    my ($mo_file0, $mo_file1, $size, $atime, $mtime0, $mtime1);
+    my ($FH, $content);
+    
+    $mo_file0 = catfile($LOCALEDIR, "en", "LC_MESSAGES", "test.mo");
+    $mo_file1 = catfile($LOCALEDIR, "en", "LC_MESSAGES", "test-cache.mo");
+    ($atime, $mtime0, $size) = (stat $mo_file0)[8,9,7];
+    open $FH, $mo_file0                 or die "$mo_file0: $!";
+    read $FH, $content, $size           or die "$mo_file0: $!";
+    close $FH                           or die "$mo_file0: $!";
+    open $FH, ">$mo_file1"              or die "$mo_file1: $!";
+    print $FH $content                  or die "$mo_file1: $!";
+    close $FH                           or die "$mo_file1: $!";
+    utime $atime, $mtime0, $mo_file1    or die "$mo_file1: $!";
+    
+    require T_L10N;
+    @_ = qw();
+    $_ = T_L10N->get_handle("en");
+    $_->bindtextdomain("test-cache", $LOCALEDIR);
+    $_->textdomain("test-cache");
+    $_[0] = $_->maketext("Hello, world!");
+    
+    # Update the file but keep the size and mtime
+    open $FH, "+<$mo_file1"             or die "$mo_file1: $!";
+    read $FH, $content, $size           or die "$mo_file1: $!";
+    $content =~ s/Hiya/HiYa/;
+    seek $FH, 0, 0                      or die "$mo_file1: $!";
+    print $FH $content                  or die "$mo_file1: $!";
+    close $FH                           or die "$mo_file1: $!";
+    ($mtime1, $size) = (stat $mo_file1)[9,7];
+    utime $atime, $mtime0, $mo_file1    or die "$mo_file1: $!";
+    $_->textdomain("test-cache");
+    $_[1] = $_->maketext("Hello, world!");
+    
+    # Update the mtime
+    utime $atime, $mtime1, $mo_file1    or die "$mo_file1: $!";
+    $_->textdomain("test-cache");
+    $_[2] = $_->maketext("Hello, world!");
+    
+    # Remove the file
+    unlink $mo_file1                    or die "$mo_file1: $!";
+    return 1;
+};
+# 1
+ok($r, 1);
+# 2
+ok($_[0], "Hiya :)");
+# 3 - cache not updated
+ok($_[1], "Hiya :)");
+# 4 - cache updated
+ok($_[2], "HiYa :)");