File Coverage

blib/lib/DDG/Language.pm

Criterion	Covered	Total	%
statement	6	8	75.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	8	11	72.7

package DDG::Language;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: A language, can be empty [TODO]
$DDG::Language::VERSION = '1016';
use Moo;

my @language_attributes = qw(
  flagicon
  flag_url
  name_in_local
  rtl
  locale
  nplurals
  name_in_english
);

  # 'en_US' => {
  #              'flagicon' => 'us',
  #              'flag_url' => 'https://duckduckgo.com/f2/us.png',
  #              'name_in_local' => 'English of United States',
  #              -'translation_count' => 24,
  #              -'percent' => '24',
  #              'rtl' => 0,
  #              'locale' => 'en_US',
  #              'nplurals' => 2,
  #              'name_in_english' => 'English of United States'
  #            },

has $_ => (
	is => 'ro',
	default => sub { '' }
) for (@language_attributes);

use overload '""' => sub {
  my $self = shift;
  return $self->locale;
}, fallback => 1;

1;

__END__