@_ = $a->b();
my $result = shift;

をまとめて記述することは出来ないでしょうか？
ハッシュの場合は警告が出るけど %{ $a->b() }->{hoge} で良いみたいなんですが。