—

              
# $Id: /local/Mango/trunk/lib/Mango/I18N.pm 150 2007-04-14T02:57:04.324056Z claco  $
package Mango::I18N;
use strict;
use warnings;
use utf8;
use vars qw/@EXPORT_OK %Lexicon $handle/;
BEGIN {
    use base qw/Locale::Maketext Exporter/;
};
@EXPORT_OK = qw(translate);
%Lexicon = (
    _AUTO => 1
);
sub translate {
    my $handle = __PACKAGE__->get_handle();
    return $handle->maketext(@_);
};
1;
__END__
HideShow 56 lines of Pod
=head1 NAME
Mango::I18N - Localization module for Mango
=head1 SYNOPSIS
    use Mango::I18N qw(translate);
     
    warn translate('This is my message');
=head1 DESCRIPTION
This module is simply a subclass of C<Locale::Maketext>. By default it doesn't
export anything. You can either use it directly:
    use Mango::I18N;
    warn Mango::I18N::translate('My message');
You can also export C<translate> into the callers namespace:
    use Mango::I18N qw/translate/;
    warn translate('My message');
If you have the time and can do a language, the help would be much appreciated.
If you're going to email a translation module, please Gzip it first. It's not
uncommon for an email server along the way to trash UTF-8 characters in the
.pm attachment text.
=head1 FUNCTIONS
=head2 translate
=over
=item Arguments: $message
=back
Translates the supplied text into the appropriate language if available. If no
match is available, the original text is returned.
    print translate('foo was here');
=head1 SEE ALSO
L<Locale::Maketext>, L<Mango::I18N::us_en>
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/