Require Pod::Thread 3.01

Require the latest version and use that to simplify how the title
is passed from the pointer to Pod::Thread.

6 files changed, 6 insertions, 8 deletions

diff --git a/Build.PL b/Build.PL
index 1304468..19dd784 100644
--- a/Build.PL
+++ b/Build.PL
@@ -76,7 +76,7 @@ my $build = Module::Build->new(
         'List::SomeUtils'        => '0.07',
         'Path::Tiny'             => 0,
         'Perl6::Slurp'           => 0,
-        'Pod::Thread'            => '3.00',
+        'Pod::Thread'            => '3.01',
         'Template'               => 0,
         'YAML::XS'               => '0.81',
         perl                     => '5.024',
diff --git a/README b/README
index cf25bbe..35d5a12 100644
--- a/README
+++ b/README
@@ -66,7 +66,7 @@ REQUIREMENTS
   * List::SomeUtils 0.07 or later
   * Path::Tiny
   * Perl6::Slurp
-  * Pod::Thread 3.00 or later
+  * Pod::Thread 3.01 or later
   * Template (part of Template Toolkit)
   * YAML::XS 0.81 or later
 
diff --git a/README.md b/README.md
index f430882..10454d7 100644
--- a/README.md
+++ b/README.md
@@ -71,7 +71,7 @@ The following additional Perl modules are required to use it:
 * List::SomeUtils 0.07 or later
 * Path::Tiny
 * Perl6::Slurp
-* Pod::Thread 3.00 or later
+* Pod::Thread 3.01 or later
 * Template (part of Template Toolkit)
 * YAML::XS 0.81 or later
 
diff --git a/docs/docknot.yaml b/docs/docknot.yaml
index becc165..a64fdb3 100644
--- a/docs/docknot.yaml
+++ b/docs/docknot.yaml
@@ -143,7 +143,7 @@ requirements: |
   * List::SomeUtils 0.07 or later
   * Path::Tiny
   * Perl6::Slurp
-  * Pod::Thread 3.00 or later
+  * Pod::Thread 3.01 or later
   * Template (part of Template Toolkit)
   * YAML::XS 0.81 or later
 
diff --git a/lib/App/DocKnot/Spin/Pointer.pm b/lib/App/DocKnot/Spin/Pointer.pm
index 05aa9ac..aaab6af 100644
--- a/lib/App/DocKnot/Spin/Pointer.pm
+++ b/lib/App/DocKnot/Spin/Pointer.pm
@@ -122,6 +122,7 @@ sub _spin_pod {
     my %options = (
         contents => $data_ref->{options}{contents},
         style    => $data_ref->{style} // 'pod',
+        title    => $data_ref->{title},
     );
     #<<<
     if (exists($data_ref->{options}{navbar})) {
@@ -129,9 +130,6 @@ sub _spin_pod {
     } else {
         $options{navbar} = 1;
     }
-    if (exists($data_ref->{title})) {
-        $options{title} = $data_ref->{title};
-    }
     my $podthread = Pod::Thread->new(%options);
 
     # Convert the POD to thread.
diff --git a/t/data/generate/docknot/output/thread b/t/data/generate/docknot/output/thread
index 63e79c3..45c836a 100644
--- a/t/data/generate/docknot/output/thread
+++ b/t/data/generate/docknot/output/thread
@@ -119,7 +119,7 @@ The following additional Perl modules are required to use it:
 \bullet(packed)[List::SomeUtils 0.07 or later]
 \bullet(packed)[Path::Tiny]
 \bullet(packed)[Perl6::Slurp]
-\bullet(packed)[Pod::Thread 3.00 or later]
+\bullet(packed)[Pod::Thread 3.01 or later]
 \bullet(packed)[Template (part of Template Toolkit)]
 \bullet(packed)[YAML::XS 0.81 or later]