Lines Matching refs:language
370 my ( $language ) = @_;
411 my $javalanguage = $language;
478 my ($language) = @_;
480 if (ref($language) eq "ARRAY")
482 if (scalar @$language > 1)
484 if ($language->[0] eq "en-US")
486 return $language->[1];
490 return $language->[0];
495 return join("_", @$language);
498 elsif ($language =~ /^.*?_(.*)$/)
504 return $language;