sub render {
my ($c,$filename,$vars) = @_;
....
no warnings 'redefine';
local *Teng::Row::update = sub { die 'Teng::Row::update not allow in view' };
local *Teng::Row::delete = sub { die 'Teng::Row::delete not allow in view' };
....
$c->SUPER::render(...);
}
0 件のコメント:
コメントを投稿