{
        no warnings 'redefine';

        sub compile_mode {
            *::_ = sub { i18n::String->new(@_) };
        }

        sub run_mode {
            *::_ = sub { $i18n::Current_Lang->maketext(@_) };
        }
    }

    BEGIN {
        compile_mode();
    }