NAME Text::Domain - Localization of gettext domain settings SYNOPSIS use Text::Domain; { my $domain = new Text::Domain 'xyz'; # do stuff here } # restore old textdomain on exit of block OR use Text::Domain qw: pushtextdomain poptextdomain :; pushtextdomain 'xyz'; # do stuff here poptextdomain # restore old textdomain DESCRIPTION Text::Domain provides an easy way to temporarily change text domains with "Locale::gettext|Locale::gettext" without forgetting the previous one. Two methods are provided -- a functional, stack-based method, and an object-oriented method. The two ways of managing domain changes are not inter-operable. They must be properly nested or the gettext functions might have a different notion of what the domain is than your program does. For example, the following is allowable: { my $domain = new Text::Domain 'my_program'; # do stuff pushtextdomain 'your_program'; # do some more stuff poptextdomain # finish up } The above results in the following calls to "textdomain": $t1 = textdomain('my_program'); $t2 = textdomain('your_program'); textdomain($t2) # restoring 'my_program' textdomain($t1) # restoring original state But the following will probably lead to some confusion somewhere: { my $domain = new Text::Domain 'my_program'; # do stuff pushtextdomain 'your_program'; # finish up } # do some more stuff poptextdomain This results in the following calls to "textdomain": $t1 = textdomain('my_program'); $t2 = textdomain('your_program'); textdomain($t1) # restoring original state textdomain($t2) # restoring 'my_program' SEE ALSO the Locale::gettext manpage. AUTHOR James G. Smith COPYRIGHT Copyright (C) 2001 Texas A&M University. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.