File Coverage

blib/lib/DBIx/dbMan/Lang.pm
Criterion Covered Total %
statement 15 22 68.1
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 2 0.0
total 20 31 64.5


line stmt bran cond sub pod time code
1             package DBIx::dbMan::Lang;
2              
3 2     2   13 use strict;
  2         5  
  2         58  
4 2     2   10 use locale;
  2         4  
  2         8  
5 2     2   69 use POSIX;
  2         3  
  2         7  
6 2     2   4167 use Locale::gettext;
  2         35994  
  2         329  
7 2     2   1235 use utf8;
  2         30  
  2         11  
8              
9             our $VERSION = '0.04';
10              
11             1;
12              
13             sub new {
14 0     0 0   my $class = shift;
15 0           my $obj = bless { @_ }, $class;
16              
17 0           $obj->{ gettext } = Locale::gettext->domain( 'dbman' );
18 0           return $obj;
19             }
20              
21             sub str {
22 0     0 0   my $obj = shift;
23 0           my $str = join '',@_;
24              
25 0           return $obj->{ gettext }->get( $str );
26             }