=encoding euc-jp =head1 NAME =begin original overloading - perl pragma to lexically control overloading =end original overloading - レキシカルにオーバーロードを制御する perl プラグマ =head1 SYNOPSIS { no overloading; my $str = "$object"; # doesn't call stringification overload } # it's lexical, so this stringifies: warn "$object"; # it can be enabled per op no overloading qw(""); warn "$object"; # and also reenabled use overloading; =head1 DESCRIPTION =begin original This pragma allows you to lexically disable or enable overloading. =end original このプラグマはオーバーロードをレキシカルに無効または有効にします。 =over 6 =item C =begin original Disables overloading entirely in the current lexical scope. =end original 現在のレキシカルスコープでオーバーロードを完全に無効にします。 =item C =begin original Disables only specific overloads in the current lexical scope. =end original 現在のレキシカルスコープで指定されたオーバーロードだけを無効にします。 =item C =begin original Reenables overloading in the current lexical scope. =end original 現在のレキシカルスコープでオーバーロードを再有効化します。 =item C =begin original Reenables overloading only for specific ops in the current lexical scope. =end original 現在のレキシカルスコープで指定された演算子についてのみオーバーロードを 再有効化します。 =back =begin meta Translate: SHIRAKATA Kentaro Status: completed =end meta =cut