package Loc;
use parent "Locale::Maketext";
use Locale::Maketext::Lexicon {
    en => [ Gettext => \*main::DATA ]
};

package main;
use strict;

print ( Loc->get_handle("nl") ? "ERROR: should be undef" : "OK: got undef" );
print "\n";

__DATA__
msgid "greet"
msgstr "hello %1"

##</code><code>##

package Loc;
use parent "Locale::Maketext";
use Locale::Maketext::Lexicon {
    nl => [ Gettext => \*main::DATA ]
};

package main;
use strict;

print ( Loc->get_handle("en") ? "ERROR: should be undef" : "OK: got undef" );
print "\n";

__DATA__
msgid "greet"
msgstr "hello %1"