use Catalyst; sub import { my ( $class, @arguments ) = @_; my $caller = caller(0); unless ( $caller->isa('Catalyst') ) { no strict 'refs'; push @{"$caller\::ISA"}, $class, 'Catalyst::Controller'; } # snip.... }
Catalyst Inside
use Catalyst; sub import { my ( $class, @arguments ) = @_; my $caller = caller(0); unless ( $caller->isa('Catalyst') ) { no strict 'refs'; push @{"$caller\::ISA"}, $class, 'Catalyst::Controller'; } # snip.... }
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
