NetSDS::Translate (3pm)

        use NetSDS::Translate;

        my $trans = NetSDS::Translate->new(
                lang => 'ru',
                domain => 'NetSDS-IVR',
        );

        print $trans->translate("Detect CallerID");

\*(C`NetSDS::Translate\*(C' module provides \s-1API\s0 to gettext translation subsystem

new(%params) - class constructor

my $trans = NetSDS::Translate->new( lang => 'ru', domain => 'NetSDS-IVR', );

translate($string) - translate string

Return translated string. print $trans->translate("All ok");

1. Make configurable language to locale conversion in constructor.

2. Implement placeholders support provided by gettext.

Locale::gettext

Michael Bochkaryov <[email protected]>

Copyright (C) 2008-2009 Net Style Ltd.

This program is free software; you can redistribute it and/or modify it under the terms of the \s-1GNU\s0 General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but \s-1WITHOUT\s0 \s-1ANY\s0 \s-1WARRANTY\s0; without even the implied warranty of \s-1MERCHANTABILITY\s0 or \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. See the \s-1GNU\s0 General Public License for more details.

You should have received a copy of the \s-1GNU\s0 General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, \s-1MA\s0 02111-1307 \s-1USA\s0