non-breaking changes that adjust for JSMD changes re original_uri

Author: karenetheridge

dist.ini

@@ -32,6 +32,7 @@ dir = share
 
 [Prereqs / RuntimeRequires]
 JSON::Schema::Modern = 0.603  ; THAW, FREEZE fixes; recommended_response default
+JSON::Schema::Modern::Document = 0.608  ; original_uri now exists separately from canonical_uri
 
 [Prereqs / RuntimeSuggests]
 Class::XSAccessor = 0

lib/JSON/Schema/Modern/Document/OpenAPI.pm

@@ -86,7 +86,7 @@ sub traverse ($self, $evaluator, $config_override = {}) {
 
   my $schema = $self->schema;
   my $state = {
-    initial_schema_uri => $self->canonical_uri,
+    # initial_schema_uri calculated from '$self' below
     traversed_schema_path => '',
     schema_path => '',
     data_path => '',
@@ -138,6 +138,9 @@ sub traverse ($self, $evaluator, $config_override = {}) {
     return $state;
   }
 
+  # in v3.2, we will use the resolved form of the uri in '$self'
+  $self->_set_canonical_uri($state->{initial_schema_uri} = $self->original_uri);
+
   # /jsonSchemaDialect: https://spec.openapis.org/oas/v3.1#specifying-schema-dialects
   {
     my $json_schema_dialect = $self->json_schema_dialect // $schema->{jsonSchemaDialect};
@@ -478,6 +481,8 @@ This is the identifier that the document is known by, which is used to resolve a
 keywords in the document (unless overridden by a subsequent C<$id> in a schema).
 See L<§4.6/https://spec.openapis.org/oas/v3.1.1#relative-references-in-api-description-uris>.
 
+See also L</retrieval_uri>.
+
 =head2 metaschema_uri
 
 The URI of the schema that describes the OpenAPI document itself. Defaults to
@@ -505,6 +510,14 @@ longer be assumed.
 
 This class inherits all methods from L<JSON::Schema::Modern::Document>. In addition:
 
+=head2 retrieval_uri
+
+Also available as L<JSON::Schema::Modern::Document/original_uri>, this is known as the "retrieval
+URI" in the OAS specification: the URL the document was originally sourced from, or the URI that
+was used to add the document to the L<OpenAPI::Modern> instance.
+
+In OpenAPI version 3.1.x, this is the same as L</canonical_uri>.
+
 =head2 get_operationId_path
 
 Returns the json pointer location of the operation containing the provided C<operationId> (suitable