File Coverage

blib/lib/Text/Domain.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch	0	2	0.0
condition			n/a
subroutine	3	7	42.8
pod	0	3	0.0
total	12	25	48.0

package Text::Domain;

use Locale::gettext;
use Exporter;
use vars qw: $VERSION @ISA @EXPORT_OK :;

$VERSION = '0.9';
# $Id: Domain.pm,v 1.1 2001/12/13 21:46:17 jgsmith Exp $

@ISA = qw: Exporter :;

@EXPORT_OK = qw: pushtextdomain poptextdomain :;

{
    my @textdomainstack;

    sub pushtextdomain($) {
        push @textdomainstack, textdomain(shift);
    }

    sub poptextdomain() {
        return textdomain(pop @textdomainstack);
    }
}

sub new {
    bless textdomain $_[1], ref $_[0] ? ref $_[0] : $_[0];
}

sub DESTROY { textdomain $_[0]; }

1;
__END__