add generic id stash value for multi-part IDs

This obsoletes entirely the Yancy::Controller::Yancy::API controller, as
that was about the only thing it did differently. Since I'm in the
middle of a total revamp of the editor, I'll remove that later.

Author: preaction

lib/Yancy/Controller/Yancy.pm

@@ -238,10 +238,23 @@ Get the ID for the currently-requested item, if available, or C<undef>.
 sub item_id {
   my ( $self ) = @_;
   my $id_field = $self->schema->id_field;
+  # First, allow a generic 'id' stash/route value to define all parts of the
+  # item's ID. This allows us to accept multiple schemas in the same
+  # route definition.
+  if (my $id_path = $self->stash('id')) {
+    if ( ref $id_field eq 'ARRAY' ) {
+      my @id_parts = split m{/}, $id_path;
+      return { map { $id_field->[$_] => $id_parts[$_] } 0..$#$id_field };
+    }
+    return $id_path;
+  }
+  # Otherwise, the ID must be defined as separate fields
   if ( ref $id_field eq 'ARRAY' ) {
+    # Multi-part keys are hash references
     my $id = { map { $_ => $self->stash( $_ ) } grep defined $self->stash( $_ ), @$id_field };
     return keys %$id == @$id_field ? $id : undef;
   }
+  # Must be a single key, a simple scalar
   return $self->stash( $id_field ) // undef;
 }
 

t/controller/yancy.t

@@ -165,6 +165,9 @@ $r->get( '/blog/usersub/:userid/:page', {
         page => 1,
     } )
     ->to( 'yancy#list' => schema => 'blog', template => 'blog_list' );
+$r->get( '/api/:schema/*id' )
+    ->to( 'yancy#get' => format => 'json' )
+    ->name( 'api.get' );
 
 subtest 'list' => sub {
     $t->get_ok( '/blog/page' )
@@ -300,6 +303,11 @@ subtest 'get' => sub {
           ->status_is( 404 );
     };
 
+    subtest 'multiple ID parts' => sub {
+        $t->get_ok( "/api/blog/$items{blog}[0]{id}", { Accept => 'application/json' } )
+          ->json_is( $items{blog}[0] )
+    };
+
     subtest 'subclassing/extending' => sub {
         $t->get_ok( "/extend/$items{blog}[0]{id}/first-post" )
           ->text_is( 'article:nth-child(1) h1', 'Extended' )