File Coverage

blib/lib/Locale/Maketext/Lexicon/Tie.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	0	2	0.0
subroutine	4	4	100.0
pod	0	1	0.0
total	23	27	85.1

package Locale::Maketext::Lexicon::Tie;
$Locale::Maketext::Lexicon::Tie::VERSION = '1.00';
use strict;
use Symbol ();

# ABSTRACT: Use tied hashes as lexicons for Maketext


sub parse {
    my $self = shift;
    my $mod  = shift;
    my $sym  = Symbol::gensym();

    # Load the target module into memory
    {
        no strict 'refs';
        eval "use $mod; 1" or die $@ unless %{"$mod\::"};
    }

    # Perform the actual tie
    tie %{*$sym}, $mod, @_;

    # Returns the GLOB reference, so %Lexicon will be tied too
    return $sym;
}

1;

__END__