Apache-MP3
view release on metacpan or search on metacpan
MP3/L10N/ja.pm view on Meta::CPAN
package Apache::MP3::L10N::ja; # Japanese
# Encoded in Shift_JIS, de facto standard of MP3 tags in Japan
use strict;
use Apache::MP3::L10N;
use vars qw($VERSION @ISA %Lexicon);
@ISA = qw(Apache::MP3::L10N);
# Translator: miyagawa@bulknews.net
sub encoding {'shift_jis'} # Shift-JIS
sub language_tag {__PACKAGE__->SUPER::language_tag}
sub sworp {
# Treat [ and ] as literal; use { and } as the metacharacters.
my @in = @_;
foreach my $x (@in) {
$x =~ s/\[/~[/g;
$x =~ s/\]/~]/g;
$x =~ tr<{}><[]>;
}
@in;
}
%Lexicon = (sworp(
'_VERSION' => __PACKAGE__ . ' v' .
($VERSION= '20020612'), # Last modified
# These are links as well as button text:
'Play All' => 'vC',
'Shuffle All' => 'Vbt', # Stream all in random order
'Stream All' => 'Xg[~O',
# This one in just button text
'Play Selected' => '`FbNµ½àÌðvC',
"In this demo, streaming is limited to approximately {quant,_1,second,seconds}."
=> "±ÌfÅÍAXg[~OÍ {quant,_1,b,b} ÉÀè³êĢܷB",
# In [quant,_1,seconde,secondes], the seconde is the singular form, and the secondes is the plural.
# Headings:
'CD Directories ({_1})' => 'CD fBNg ({_1})',
'Playlists ({_1})' => 'vCXg ({_1})',
'Song List ({_1})' => 't@CXg ({_1})',
'Playlist' => 'vCXg',
'Select' => 'Ið',
'fetch' => '_E[h', # this file
'stream' => 'Xg[~O', # this file
'Shuffle' => 'Vbt', # a subdirectory, recursively
'Stream' => 'Xg[~O', # a subdirectory, recursively
# Label for a link to "http://[servername]/"
'Home' => 'Home',
# Credits
"_CREDITS_before_author" => "Apache::MP3 by ",
"_CREDITS_author" => "Lincoln D. Stein",
"_CREDITS_after_author" => ".",
'unknown' => 'unknown',
# Metadata fields:
'Artist' => 'A[eBXg',
'Comment' => 'Rg',
'Duration' => 'tÔ',
'Filename' => 't@C¼',
'Genre' => 'W',
'Album' => 'Ao',
( run in 0.506 second using v1.01-cache-2.11-cpan-3c2a17b8caa )