V.S.A. III

[教えて]Catalyst の debug メッセージを出力させないようにする方法

こんにちは，五十嵐です．他力本願「教えて」シリーズ(笑)．．．Perl Catalyst で debug メッセージを出さなくする方法がわからず，ハマっています．

マニュアルには
引用：

-Log

Specifies log level.

と書いてあるので，アプリケーション(仮に MyApp とする)のトップファイル MyApp.pm のなかで，

use Catalyst qw/
                -Log=info
                ...

とかやれば良さそうなんですが．．．

/usr/lib/perl5/site_perl/5.8.8/Catalyst.pm の処理は

    foreach (@arguments) {

        if (/^-Debug$/) {
            $flags->{log} =
              ( $flags->{log} ) ? 'debug,' . $flags->{log} : 'debug';
        }
        elsif (/^-(\w+)=?(.*)$/) {
            $flags->{ lc $1 } = $2;
        }
        else {
            push @{ $flags->{plugins} }, $_;
        }
    }
... 略 ...
    $class->setup_log( delete $flags->{log} );

となっていますから，'-Log=info' で処理されそうなものなのですが，これを設定しても相変わらず $c->log->debug('...') と記述した部分はログに表示されてしまいます．

環境変数で CATALYST_DEBUG=0 に設定して実行してもユーザ設定メッセージは表示されてしまいます．同じ Catalyst.pm のなかで，

sub setup_log {
    my ( $class, $debug ) = @_;

    unless ( $class->log ) {
        $class->log( Catalyst::Log->new );
    }

    my $app_flag = Catalyst::Utils::class2env($class) . '_DEBUG';

    if (
          ( defined( $ENV{CATALYST_DEBUG} ) || defined( $ENV{$app_flag} ) )
        ? ( $ENV{CATALYST_DEBUG} || $ENV{$app_flag} )
        : $debug
      )
    {
        no strict 'refs';
        *{"$class\::debug"} = sub { 1 };
        $class->log->debug('Debug messages enabled');
    }
}

setup_log() がこんな風になっていますから，info とか設定してあっても関係ないという感じですね．何か見落としているかなぁ．

どうやったら $c->log->debug('...') と書いたメッセージを実行時に表示させなくできるのでしょうか．自分で，コード書かなきゃだめか？

MyApp.pm に以下のような記述を setup の前後に追加してみました．

+if( ! defined $ENV{CATALYST_DEBUG} ){
+       $ENV{CATALYST_DEBUG} = 0;
+}
+
 __PACKAGE__->setup;
 
+if( $ENV{CATALYST_DEBUG} == 0 ){
+       __PACKAGE__->log->disable('debug');
+}
+

これで，script/myapp_server.pl を -d オプションなしで実行すれば，デバッグメッセージは出なくなります．-d オプションを付けるか，環境変数で CATALYST_DEBUG=1 とやれば，デバッグメッセージが出力されます．でも，なんとなくかっこ悪い．．．

もっとスマートな方法がきっとあるはずですよね．教えて Catalyst の偉いひと！

カテゴリ：開発日記

<< [Secure-SBM:015] ブックマーク登録(1) | Main | TGIF: 日本動画協会 >>

いかちょー (2007-06-22 21:47) | コメント(0)| トラックバック(7)

トラックバック(7)

トラックバックURL:

Generic oxycontin 40mg. - Generic oxycontin 40mg. (2011年2月26日 19:18)

Generic oxycontin 40mg. 続きを読む

Percocet and heartburn. - Percocet and heartburn. (2011年2月27日 03:08)

Percocet and heartburn. 続きを読む

Buy watson soma. - Buy online soma watson. (2011年2月27日 23:13)

Buy watson soma. Buy watson soma online. Buy online soma watson. 続きを読む

But oxycontin online. - But oxycontin online. (2011年2月28日 04:42)