fix wrong resolving of responses component using $ref

Signed-off-by: Jihyeon Gim <[email protected]>
jhthorsen · Oct 12, 2024 · fe6e598 · fe6e598
1 parent 6677979
commit fe6e598
Showing 4 changed files with 555 additions and 3 deletions.
diff --git a/lib/JSON/Validator/Schema/OpenAPIv3.pm b/lib/JSON/Validator/Schema/OpenAPIv3.pm
@@ -2,7 +2,7 @@ package JSON::Validator::Schema::OpenAPIv3;
 use Mojo::Base 'JSON::Validator::Schema::Draft201909';
 
 use JSON::Validator::Util qw(E data_type negotiate_content_type schema_type);
-use Mojo::JSON qw(false true);
+use Mojo::JSON            qw(false true);
 use Mojo::Path;
 
 has moniker       => 'openapiv3';
@@ -91,8 +91,8 @@ sub parameters_for_response {
   my $cache_key = "parameters_for_response:$method:$path:$status";
   return $self->{cache}{$cache_key} if $self->{cache}{$cache_key};
 
-  my $responses = $self->get([paths => $path, $method, 'responses']);
-  my $response  = $responses->{$status} || $responses->{default};
+  my $response = $self->get([paths => $path, $method, 'responses', $status])
+    || $self->get([paths => $path, $method, 'responses', 'default']);
   return undef unless $response;
 
   my @parameters;