package i18n::String;

    use strict; use warnings;
    no warnings 'once';
    
    use overload q{""} =>
        sub { $i18n::Current_Lang->maketext( ${ $_[0] } ) };

    sub new {
        my $class  = shift;
        my $string = shift;
        return bless( \$string, $class );
    }

    1;