File Coverage

blib/lib/DDG/Test/Language.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	1	4	25.0
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	32	38	84.2

package DDG::Test::Language;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Gives functions for getting test L objects.
$DDG::Test::Language::VERSION = '1018';
use strict;
use warnings;
use DDG::Language;
use Package::Stash;
use utf8;


our %languages = (
	'us' => {
		'flagicon' => 'us',
		'flag_url' => 'https://duckduckgo.com/f2/us.png',
		'name_in_local' => 'English of United States',
		'rtl' => 0,
		'locale' => 'en_US',
		'nplurals' => 2,
		'name_in_english' => 'English of United States',
	},
	'de' => {
		'flagicon' => 'de',
		'flag_url' => 'https://duckduckgo.com/f2/de.png',
		'name_in_local' => 'Deutsch von Deutschland',
		'rtl' => 0,
		'locale' => 'de_DE',
		'nplurals' => 2,
		'name_in_english' => 'German of Germany',
	},
	'my' => {
		'flagicon' => 'my',
		'flag_url' => 'https://duckduckgo.com/f2/my.png',
		'name_in_local' => 'Bahasa Malaysia di Malaysia',
		'rtl' => 0,
		'locale' => 'ms_MY',
		'nplurals' => 1,
		'name_in_english' => 'Malay in Malaysia',
	},
);

sub import {
	my ( $class, %params ) = @_;
	my $target = caller;
	my $stash = Package::Stash->new($target);


	$stash->add_symbol('&test_language', sub {
		my $language_key = shift;
		die "Unknown language_key \"".$language_key."\"" unless defined $languages{$language_key};
		return DDG::Language->new( %{$languages{$language_key}} );
	});


	$stash->add_symbol('&test_language_by_env', sub {
		my $language_key = defined $ENV{DDG_TEST_LANGUAGE} ? $ENV{DDG_TEST_LANGUAGE} : 'us';
		$stash->get_symbol('&test_language')->($language_key);
	});

}

1;

__END__