File Coverage

blib/lib/Locale/Framework.pm

Criterion	Covered	Total	%
statement	33	41	80.4
branch	3	8	37.5
condition			n/a
subroutine	11	12	91.6
pod	4	5	80.0
total	51	66	77.2

package Locale::Framework;

use 5.006;
use strict;
use warnings;

use Locale::Framework::Dumb;

our $VERSION = '0.06';

require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);

@EXPORT = qw(_T);

my $backend=new Locale::Framework::Dumb;
my $language="en";

sub new {
  my $class=shift;
  my $self;

  $self->{"nil"}=1;
  bless $self,$class;
return $self;
}

sub init {
  my $self=shift;
  my $lang_backend;
  if (ref($self) eq "Locale::Framework") {
    $lang_backend=shift;
  }
  else {
    $lang_backend=$self;
  }
  $backend=$lang_backend;
}

sub _T {
  my $text=shift;
  if (ref($text) eq "Locale::Framework") {
    $text=shift;
  }
return $backend->translate($language,$text);
}

sub clear_cache {
    $backend->clear_cache();
}

sub language {
  my $l=shift;
  if (ref($l) eq "Locale::Framework") {
    $l=shift;
  }
  $language=$l;
}

sub set_translation {
  if (ref($_[0]) eq "Locale::Framework") {
    shift;
  }
  $backend->set_translation($language,@_);
}


1;
__END__