DBICのresultset_attributes

Perl

resultset_attributesをつけてると便利だったりもするんですけど、
resultset_attributesに検索条件を入れてると
うざい場合があって、同僚が悩んでたので↓みたいにしてみそらしどといってみた

my $schema = $self->model;
{
    local $schema->source('Hoge')->{resultset_attributes} = '';
    my $rs = $self->model('Hoge')->search;
    $rs->all;
}
my $rs = $self->model('Hoge')->search;
$rs->all;

まあこんなんでどうですかな
{resultset_attributes}をさわるのはどうなのよという話もありつつ。