Changeset 33491

Timestamp:

05/22/09 00:27:03 (4 years ago)

Author:

cento

Message:

add country and genre list

Files:

• lang/perl/WWW-Allcinema/trunk/lib/WWW/Allcinema.pm (modified) (1 diff)

lang/perl/WWW-Allcinema/trunk/lib/WWW/Allcinema.pm

@@ -12 +12 @@
     qw/id title year time country genre director producers screenplay music cast error _page _ua _param/
 );
+
+my @COUNTRY =
+  qw/アメリカ イギリス イタリア イラン インド オーストラリア オランダ カナダ スイス スウェーデン スペイン ドイツ ニュージーランド ハンガリー フィリピン ブラジル フランス ベルギー ポーランド メキシコ ルーマニア ロシア 韓国 香港 台湾 中国 南アフリカ 日本/;
+
+my @GENRE =
+  qw/アクション ＳＦ ホラー サスペンス 青春 ドラマ コメディ ミュージカル エロティック 西部劇 ドキュメンタリー ファミリー パニック モンド 戦争 歴史劇 伝記 アドベンチャー ファンタジー ロマンス ミステリー アート 音楽 スポーツ 犯罪 特撮 時代劇 任侠・ヤクザ 文芸 格闘技 魔法 ロボット 学園 ヒーロー ギャンブル その他/;
 
 our $VERSION = '0.01';