[Test.pm] avoid a warning in throws_like