blog.nomadscafe.jp

Catalyst 5.61からmodelなどのcompornentを呼び出すところに、ACCEPT_CONTEXTなるものがある。
compornentの呼び出しはいつからか、

$c->model('MyModel')->foo;
$c->view('MyView')->bar;

って方法が使えるようになってる。

現在開発中のコードでは、

my $comp = $c->components->{$try};
if ( eval { $comp->can('ACCEPT_CONTEXT'); } ) {
     return $comp->ACCEPT_CONTEXT($c);
}
else { return $comp }

というようになっていて、インスタンスでもクラスでも目的のmethodを呼び出す前にACCEPT_CONTEXTがあれば、ACCEPT_CONTEXTを引数$cで呼び出してくれる。このcontextオブジェクトをクラス側で保持しておけば、Catalyst::Compornentをベースとしていないクラスでも$cが使えるいうわけっす。

ってことで、Class::DBIのプラグインを簡単につくってみた。ただし現在のCatalystのバージョンでは動かない。

package Class::DBI::Plugin::AcceptCatalyst;
use strict;
use warnings;
our $VERSION = '0.01';
sub import {
    my $caller = caller();
    no strict 'refs';
    $caller->mk_classdata('catalyst_context');  	
    *{"$caller\::ACCEPT_CONTEXT"} = sub {
        my ($class, $c) = @_;
        $class->catalyst_context($c);
        return $class;
	};
}

これをロードしておけば、Class::DBIベースのクラスの中でCatalystのContextが使える、ハズ。before_hoge、after_hogeとかのTriggerでこれを利用してLogを取るなんてこともできるんじゃないかな。
ただ、このコードだとメモリリークする可能性があるので、もう一工夫いるかな。

YAML::SyckにConfigが変わるらしい5.64はいつになるだろう。