File Coverage

blib/lib/Locale/Scope.pm

Criterion	Covered	Total	%
statement	14	20	70.0
branch			n/a
condition	0	2	0.0
subroutine	5	8	62.5
pod	1	2	50.0
total	20	32	62.5

package Locale::Scope;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.04";

use parent qw/Exporter/;
our @EXPORT_OK = qw/locale_scope/;

use POSIX qw/setlocale/;

sub locale_scope { unshift @_, __PACKAGE__; goto \&new }

sub new {
    my ($class, $category, $locale) = @_;
    return bless +{
        category => $category,
        before   => setlocale($category),
        current  => setlocale($category, $locale) || die "failed to setlocale. locale: $locale",
    } => $class;
}

sub DESTROY {
    my $self = shift;
    setlocale($self->{category}, $self->{before});
}

1;
__END__