Added JSON-LD to more pages.

davorg · Apr 25, 2019 · d2cf4f3 · d2cf4f3
1 parent cf6a27f
commit d2cf4f3
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 2 deletions.
diff --git a/in/production.tt b/in/production.tt
@@ -1,5 +1,7 @@
 [% META title = 'Production' %]
 
+<script type="application/ld+json">
+[% production.json_ld %]</script>
 <p class="text-muted">[% template.title or 'Literature on TV' %]</p>
 
 <h1 class="display-3">[% production.title %]</h1>

diff --git a/in/work.tt b/in/work.tt
@@ -1,5 +1,7 @@
 [% META title = 'Work' %]
 
+<script type="application/ld+json">
+[% work.json_ld %]</script>
 <p class="text-muted">[% template.title or 'Literature on TV' %]</p>
 
 <h1 class="display-3">[% work.title %]</h1>

diff --git a/lib/Literature/Schema/Result/Production.pm b/lib/Literature/Schema/Result/Production.pm
@@ -165,10 +165,21 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07048 @ 2019-04-25 14:55:29
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Hszq6UGmkAh+2J8hRr9BzQ
 
-with 'Literature::Role::HasSlug';
+with 'Literature::Role::HasSlug', 'MooX::Role::JSON_LD';
 
 sub slug_cols { return qw[title year]; }
 
+sub json_ld_type {
+  return {
+    'Film'      => 'Movie',
+    'TV Series' => 'TVSeries',
+  }->{$_[0]->type};
+}
+
+sub json_ld_fields {
+  return [ { name => 'title' } ];
+}
+
 around title => sub {
   my $orig = shift;
   my $self = shift;

diff --git a/lib/Literature/Schema/Result/Work.pm b/lib/Literature/Schema/Result/Work.pm
@@ -218,10 +218,13 @@ __PACKAGE__->many_to_many(
 # Created by DBIx::Class::Schema::Loader v0.07048 @ 2019-04-25 14:55:29
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:xtnwNE+fA9uoIHf4kCRPeA
 
-with 'Literature::Role::HasSlug';
+with 'Literature::Role::HasSlug', 'MooX::Role::JSON_LD';
 
 sub slug_cols { return qw[title]; }
 
+sub json_ld_type { $_[0]->type }
+sub json_ld_fields { [ { name => 'title' } ] }
+
 sub asins {
   my $self = shift;