File Coverage

blib/lib/Locale/Maketext/Utils/Mock.pm

Criterion	Covered	Total	%
statement	53	56	94.6
branch	11	14	78.5
condition	3	3	100.0
subroutine	14	14	100.0
pod	2	2	100.0
total	83	89	93.2

package Locale::Maketext::Utils::Mock;

use strict;
use warnings;
use Locale::Maketext::Utils ();    # brings in Locales.pm
use base 'Locale::Maketext::Utils';

$Locale::Maketext::Utils::Mock::VERSION = '0.1';

package Locale::Maketext::Utils::Mock::en;
use base 'Locale::Maketext::Utils::Mock';
our %Lexicon;

package Locale::Maketext::Utils::Mock;

our %Lexicon;

sub init_mock_locales {
    my $cnt = 0;
    for my $loc_tag ( map { Locales::normalize_tag($_) } @_ ) {
        next if !$loc_tag;
        next unless $loc_tag =~ m/^i_/ || Locales->new($loc_tag);

        $cnt++;
        eval "package Locale::Maketext::Utils::Mock::$loc_tag;use base 'Locale::Maketext::Utils::Mock';our \%Lexicon;package Locale::Maketext::Utils::Mock;";
        if ($@) {
            $cnt--;
            require Carp;
            Carp::carp($@);
        }

    }

    return $cnt;
}

sub create_method {
    my ( $class, $def_hr ) = @_;
    if ( @_ == 2 ) {
        $class = ref($class) if ref($class);
    }
    else {
        $def_hr = $class;                            # was a function call
        $class  = 'Locale::Maketext::Utils::Mock';
    }
    return if ref($def_hr) ne 'HASH';
    no strict 'refs';
    for my $m ( sort keys %{$def_hr} ) {
        *{ $class . "::$m" } = ref( $def_hr->{$m} ) eq 'CODE' ? $def_hr->{$m} : sub { return "I am $m()." };
    }
}

1;

__END__