argra****@users*****
argra****@users*****
2011年 9月 9日 (金) 04:45:54 JST
Index: docs/modules/warnings-1.06/warnings.pod
diff -u /dev/null docs/modules/warnings-1.06/warnings.pod:1.1
--- /dev/null Fri Sep 9 04:45:54 2011
+++ docs/modules/warnings-1.06/warnings.pod Fri Sep 9 04:45:54 2011
@@ -0,0 +1,271 @@
+
+=encoding euc-jp
+
+=head1 NAME
+
+=begin original
+
+warnings - Perl pragma to control optional warnings
+
+=end original
+
+warnings - 選択的な警告を調整する Perl プラグマ
+
+=head1 SYNOPSIS
+
+ use warnings;
+ no warnings;
+
+ use warnings "all";
+ no warnings "all";
+
+ use warnings::register;
+ if (warnings::enabled()) {
+ warnings::warn("some warning");
+ }
+
+ if (warnings::enabled("void")) {
+ warnings::warn("void", "some warning");
+ }
+
+ if (warnings::enabled($object)) {
+ warnings::warn($object, "some warning");
+ }
+
+ warnings::warnif("some warning");
+ warnings::warnif("void", "some warning");
+ warnings::warnif($object, "some warning");
+
+=head1 DESCRIPTION
+
+=begin original
+
+The C<warnings> pragma is a replacement for the command line flag C<-w>,
+but the pragma is limited to the enclosing block, while the flag is global.
+See L<perllexwarn> for more information.
+
+=end original
+
+C<warnings> プラグマは、コマンドラインフラグ C<-w> の置き換えです;
+しかし、このフラグはグローバルなのですが、このプラグマは閉じられた
+ブロックに限定されます。
+更なる情報は L<perllexwarn> を見てください。
+
+=begin original
+
+If no import list is supplied, all possible warnings are either enabled
+or disabled.
+
+=end original
+
+インポートリストを与えない場合は、可能な限り全ての警告を有効にしたり
+無効にしたりします。
+
+=begin original
+
+A number of functions are provided to assist module authors.
+
+=end original
+
+いくつかの関数は、モジュール作成者の手助けをします。
+
+=over 4
+
+=item use warnings::register
+
+=begin original
+
+Creates a new warnings category with the same name as the package where
+the call to the pragma is used.
+
+=end original
+
+プラグマを呼び出したパッケージと同じ名前の新しい警告カテゴリを作成します。
+
+=item warnings::enabled()
+
+=begin original
+
+Use the warnings category with the same name as the current package.
+
+=end original
+
+現在のパッケージと同じ名前の警告カテゴリを使います。
+
+=begin original
+
+Return TRUE if that warnings category is enabled in the calling module.
+Otherwise returns FALSE.
+
+=end original
+
+呼ばれたモジュール内でその警告カテゴリが有効ならば真（TRUE）を返します。
+そうでなければ偽（FALSE）を返します。
+
+=item warnings::enabled($category)
+
+=begin original
+
+Return TRUE if the warnings category, C<$category>, is enabled in the
+calling module.
+Otherwise returns FALSE.
+
+=end original
+
+呼ばれたモジュール内で警告カテゴリ（C<$category>）が有効ならば真
+（TRUE）を返します。
+そうでなければ偽（FALSE）を返します。
+
+=item warnings::enabled($object)
+
+=begin original
+
+Use the name of the class for the object reference, C<$object>, as the
+warnings category.
+
+=end original
+
+オブジェクトリファレンス（C<$object>）のクラス名を警告カテゴリとして
+使います。
+
+=begin original
+
+Return TRUE if that warnings category is enabled in the first scope
+where the object is used.
+Otherwise returns FALSE.
+
+=end original
+
+そのオブジェクトが使われた最初のスコープ内でその警告カテゴリが有効ならば
+真（TRUE）を返します。
+そうでなければ偽（FALSE）を返します。
+
+=item warnings::warn($message)
+
+=begin original
+
+Print C<$message> to STDERR.
+
+=end original
+
+STDERR に C<$message> を出力します。
+
+=begin original
+
+Use the warnings category with the same name as the current package.
+
+=end original
+
+現在のパッケージと同じ名前の警告カテゴリを使います。
+
+=begin original
+
+If that warnings category has been set to "FATAL" in the calling module
+then die. Otherwise return.
+
+=end original
+
+もし、呼ばれたモジュール内でその警告カテゴリーに "FATAL" が
+設定されていたならば、終了（die）します。
+
+=item warnings::warn($category, $message)
+
+=begin original
+
+Print C<$message> to STDERR.
+
+=end original
+
+STDERR に C<$message> を出力します。
+
+=begin original
+
+If the warnings category, C<$category>, has been set to "FATAL" in the
+calling module then die. Otherwise return.
+
+=end original
+
+もし、呼ばれたモジュール内で警告カテゴリ（C<$category>）に "FATAL" が
+設定されていたならば、終了（die）します。
+
+=item warnings::warn($object, $message)
+
+=begin original
+
+Print C<$message> to STDERR.
+
+=end original
+
+STDERR に C<$message> を出力します。
+
+=begin original
+
+Use the name of the class for the object reference, C<$object>, as the
+warnings category.
+
+=end original
+
+オブジェクトリファレンス（C<$object>）のクラス名を警告カテゴリとして
+使います。
+
+=begin original
+
+If that warnings category has been set to "FATAL" in the scope where C<$object>
+is first used then die. Otherwise return.
+
+=end original
+
+もし、C<$object> が最初に使われたスコープ内でその警告カテゴリに
+"FATAL" が設定されていたならば、終了（die）します。
+
+=item warnings::warnif($message)
+
+=begin original
+
+Equivalent to:
+
+=end original
+
+以下のものと等価です:
+
+ if (warnings::enabled())
+ { warnings::warn($message) }
+
+=item warnings::warnif($category, $message)
+
+=begin original
+
+Equivalent to:
+
+=end original
+
+以下のものと等価です:
+
+ if (warnings::enabled($category))
+ { warnings::warn($category, $message) }
+
+=item warnings::warnif($object, $message)
+
+=begin original
+
+Equivalent to:
+
+=end original
+
+以下のものと等価です:
+
+ if (warnings::enabled($object))
+ { warnings::warn($object, $message) }
+
+=back
+
+=begin original
+
+See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>.
+
+=end original
+
+L<perlmodlib/Pragmatic Modules> と L<perllexwarn> を見てください。
+
+=cut
+