/usr/local/CPAN/dbMan/DBIx/dbMan/Lang.pm

• package DBIx::dbMan::Lang
  • new
  • str
• EOF

package DBIx::dbMan::Lang;

use strict;
use locale;
use POSIX;
use Locale::gettext;

our $VERSION = '0.02';

1;

sub new {
	my $class = shift;
	my $obj = bless { @_ }, $class;
	setlocale(LC_MESSAGES, "");
	textdomain('dbman');
	return $obj;
}

sub str {
	my $obj = shift;
	my $str = join '',@_;
	return gettext $str;
}