Modernize and add GitHub Workflows

*   Test with Perl 5.10 - 5.40 on Linux, macOS, and Windows.
*   Automate release on tags starting with v.
*   Generate latest changes.
*   Update `Build.PL` to use meta-spec v2.
*   Update `MANIFEST.SKIP` and `.gitignore`
*   Add CPAN release and CI badges to README.
*   Replace search.cpan.org URLs and use https everywhere supported.
*   Update copyright date and use reference links in README.
*   Remove pod test from releases and add maintainer tests in `xt`
    directory.
*   Document `make_request` and `purge_code_cache`.

.github/workflows/ci.yml

@@ -0,0 +1,43 @@
+name: ✅ CI
+on:
+  push:
+    branches: ['**']
+  pull_request:
+  schedule:
+    - cron:  '0 10 3 * *' # Monthly at 10am on the third
+jobs:
+  test:
+    strategy:
+      matrix:
+        os:
+          - { icon: 🐧, name: ubuntu  }
+          - { icon: 🍎, name: macos   }
+          - { icon: 🪟, name: windows }
+        perl: [ '5.40', '5.38', '5.36', '5.34', '5.32', '5.30', '5.28', '5.26', '5.24', '5.22', '5.20', '5.18', '5.16', '5.14', '5.12', '5.10' ]
+    name: 🐪 Perl ${{ matrix.perl }} on ${{ matrix.os.icon }}
+    runs-on: ${{ matrix.os.name }}-latest
+    steps:
+      - uses: actions/checkout@v4
+      - name: Setup Perl
+        uses: shogo82148/actions-setup-perl@v1
+        with:
+          perl-version: ${{ matrix.perl }}
+      - name: Install Dependencies
+        run: |
+          cpanm -v --notest --no-man-pages Module::Build
+          cpanm -v --notest --no-man-pages --installdeps --with-develop .
+      - name: Test
+        env:
+          AUTHOR_TESTING: 1
+          RELEASE_TESTING: 1
+        run: prove -lv
+
+      #  Make sure we can build the distribution bundle.
+      - name: Test Distro
+        if: runner.os == 'Linux'
+        run: |
+          prove -l xt
+          perl Build.PL
+          ./Build
+          ./Build manifest
+          ./Build disttest

.github/workflows/release.yml

@@ -0,0 +1,45 @@
+name: 🚀 Release
+on:
+  push:
+    tags: [v*]
+jobs:
+  release:
+    name: 🚀 Release
+    runs-on: ubuntu-latest
+    env:
+      GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+    steps:
+    - name: Check out the repo
+      uses: actions/checkout@v4
+    - name: Setup Perl
+      uses: shogo82148/actions-setup-perl@v1
+    - name: Install Release Dependencies
+      run: cpanm -qn Module::Build CPAN::Uploader
+
+    # CPAN
+    - name: Package the Release
+      id: package
+      run: perl Build.PL && ./Build manifest && ./Build dist && echo "tarball=$(./Build tarball_name)" >> $GITHUB_OUTPUT
+    - name: Generate Release Changes
+      run: ./Build latest_changes
+    - name: Release on CPAN
+      env:
+        CPANPASS: ${{ secrets.CPAN_PASSWORD }}
+        CPANUSER: ${{ secrets.CPAN_USERNAME }}
+      run: cpan-upload --user "$CPANUSER" --password "$CPANPASS" '${{ steps.package.outputs.tarball }}'
+
+    # GitHub
+    - name: Create GitHub Release
+      id: release
+      uses: actions/create-release@v1
+      with:
+        tag_name: ${{ github.ref }}
+        release_name: Release ${{ github.ref }}
+        body_path: latest_changes.md
+    - name: Upload Release Asset
+      uses: actions/upload-release-asset@v1
+      with:
+        upload_url: ${{ steps.release.outputs.upload_url }}
+        asset_path: ./${{ steps.package.outputs.tarball }}
+        asset_name: ${{ steps.package.outputs.tarball }}
+        asset_content_type: application/gzip

.gitignore

@@ -7,4 +7,6 @@
 /Build
 /Makefile*
 /pm_to_blib
-/t/scripts
+/t/scripts
+/latest_changes.md
+t/TEST

Build.PL

@@ -1,16 +1,42 @@
 use Module::Build;
 
+
 my $build_pkg = eval { require Apache::TestMB }
   ? 'Apache::TestMB' : 'Module::Build';
 
-$build_pkg->new(
+my $class = $build_pkg->subclass(
+    class => 'My::Builder',
+    code => q{
+        sub ACTION_tarball_name { print shift->dist_dir . ".tar.gz\n" }
+        sub ACTION_latest_changes {
+            my $self = shift;
+            (my $dv = $self->dist_version) =~ s/^v//;
+            open my $in, '<:raw', 'Changes' or die "Cannot open Changes: $!\n";
+            open my $out, '>:raw', 'latest_changes.md' or die "Cannot open latest_changes.md: $!\n";
+            while (<$in>) { last if /^\Q$dv\E\b/ }
+            print {$out} "Changes for v$dv\n";
+            while (<$in>) {
+                last if /^\s*$/;
+                chomp;
+                if (s/^\s+-/-  /) {
+                    print {$out} "\n";
+                } else {
+                    s/^\s+/ /;
+                }
+                print {$out} $_;
+            }
+            $self->add_to_cleanup('latest_changes.md');
+        }
+    },
+);
+
+$class->new(
     module_name        => 'MasonX::Interp::WithCallbacks',
     license            => 'perl',
-    configure_requires => { 'Module::Build' => '0.2701' },
-    build_requires     => {
-        'Module::Build' => '0.2701',
-        'Test::More'    => '0.17',
-    },
+    create_makefile_pl => 'traditional',
+    configure_requires => { 'Module::Build' => '0.4209' },
+    build_requires     => { 'Module::Build' => '0.4209' },
+    test_requires      => { 'Test::More'    => '0.17' },
     recommends         => {
         'Test::Pod'      => '1.20',
         'Apache::TestMB' => 0
@@ -23,10 +49,20 @@ $build_pkg->new(
     },
     add_to_cleanup     => ['t/mason'],
     meta_merge => {
+        "meta-spec" => { version => 2 },
         resources => {
-            homepage   => 'http://search.cpan.org/dist/MasonX-Interp-WithCallbacks/',
-            bugtracker => 'http://github.com/theory/masonx-interp-withcallbacks/issues/',
-            repository => 'http://github.com/theory/masonx-interp-withcallbacks/',
-        }
+            homepage   => 'https://metacpan.org/pod/MasonX::Interp::WithCallbacks',
+            bugtracker => 'https://github.com/theory/masonx-interp-withcallbacks/issues/',
+            repository => 'https://github.com/theory/masonx-interp-withcallbacks',
+        },
+        prereqs => {
+            develop => {
+                requires => {
+                    'Test::Pod'           => '1.41',
+                    'Test::Pod::Coverage' => '1.06',
+                    'Test::Spelling'      => '0.25',
+                },
+            },
+        },
     },
 )->create_build_script;

Changes

@@ -1,6 +1,9 @@
 Revision history for Perl extension MasonX::Interp::WithCallbacks.
 
 1.20
+      - Fixed warning with Perl 5.40.
+      - Added GitHub workflows with CI tests for Perl 5.10 - 5.40 on Linux,
+        macOS, and Windows.
 
 1.19  2011-06-21T04:33:14
       - Fixed a pasto in the "Support" section.

MANIFEST.SKIP

@@ -1,11 +1,37 @@
-^_build
-^Build$
-^blib
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+,v$
+\B\.svn\b
+\B\.git
+
+# Avoid Makemaker generated and utility files.
+\bMakefile$
+\bblib
+\bMakeMaker-\d
+\bpm_to_blib$
+\bblibdirs$
+^MANIFEST\.SKIP$
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build
+
+# Avoid temp and backup files.
 ~$
+\.tmp$
+\.old$
 \.bak$
-^MANIFEST\.SKIP$
+\#$
+\b\.#
+
+# Avoid build files.
 ^MasonX-Interp-WithCallbacks
-\.git
+^[.]travis.yml
 ^t.TEST$
-^MYMETA\.yml$
+
+# Avoid extra tests.
+^xt/
+
+^MYMETA.yml$
 ^MYMETA\.json$

README.md

@@ -1,12 +1,13 @@
 MasonX/Interp/WithCallbacks version 1.20
 ========================================
 
+[![🧅 CPAN version](https://badge.fury.io/pl/MasonX-Interp-WithCallbacks.svg)](https://badge.fury.io/pl/MasonX-Interp-WithCallbacks)
+[![✅ Build Status](https://github.com/theory/masonx-interp-withcallbacks/actions/workflows/ci.yml/badge.svg)](https://github.com/theory/masonx-interp-withcallbacks/actions/workflows/ci.yml)
+
 MasonX::Interp::WithCallbacks subclasses HTML::Mason::Interp in order to
-provide a [Mason](http://search.cpan.org/dist/HTML-Mason) callback system
-built on
-[Params::CallbackRequest](http://search.cpan.org/dist/params-callbackrequest/).
+provide a [Mason] callback system built on [Params::CallbackRequest].
 Callbacks may be either code references provided to the `new()` constructor,
-or methods defined in subclasses of Params::Callback. Callbacks are triggered
+or methods defined in subclasses of [Params::Callback]. Callbacks are triggered
 either for every request or by specially named keys in the Mason request
 arguments, and all callbacks are executed at the beginning of a request, just
 before Mason creates and executes the request component stack.
@@ -57,7 +58,12 @@ Testing of this module with HTML::Mason::ApacheHandler requires:
 Copyright and License
 ---------------------
 
-Copyright (c) 2003-2011 David E. Wheeler. Some Rights Reserved.
+Copyright (c) 2003-2024 David E. Wheeler. Some Rights Reserved.
 
 This library is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.
+
+  [HTML::Mason::Interp]: https://metacpan.org/pod/HTML::Mason::Interp
+  [Mason]: https://metacpan.org/dist/HTML-Mason
+  [Params::CallbackRequest]: https://metacpan.org/pod/Params::CallbackRequest
+  [Params::Callback]: https://metacpan.org/pod/Params::Callback

lib/MasonX/Interp/WithCallbacks.pm

@@ -1,7 +1,7 @@
 package MasonX::Interp::WithCallbacks;
 
 use strict;
-use HTML::Mason qw(1.23);
+use HTML::Mason 1.23;
 use HTML::Mason::Interp;
 use HTML::Mason::Exceptions ();
 use Params::CallbackRequest;
@@ -848,6 +848,14 @@ In this example, we have overridden the component path determined by the
 Mason resolver in favor of an alternate component, which will be executed,
 instead.
 
+=head3 make_request
+
+Overrides and re-dispatches to L<HTML::Mason::Interp/"make_request">.
+
+=head3 purge_code_cache
+
+Overrides and re-dispatches to L<HTML::Mason::Interp/"purge_code_cache">.
+
 =head2 Requester
 
 The MasonX::Interp::WithCallbacks object is available in all callback methods
@@ -875,14 +883,12 @@ request, just as with C<< $r->pnotes >>.
 
 =head1 SUPPORT
 
-This module is stored in an open L<GitHub
-repository|http://github.com/theory/masonx-interp-withcallbacks/>. Feel free
-to fork and contribute!
+This module is stored in a public
+L<GitHub repository|https://github.com/theory/masonx-interp-withcallbacks/>. Feel free to
+fork and contribute!
 
-Please file bug reports via L<GitHub
-Issues|http://github.com/theory/masonx-interp-withcallbacks/issues/> or by
-sending mail to
-L<[email protected]|mailto:[email protected]>.
+Please file bug reports via
+L<GitHub Issues|https://github.com/theory/masonx-interp-withcallbacks/issues/>.
 
 =head1 SEE ALSO
 
@@ -899,7 +905,7 @@ create callback classes and methods.
 
 This module works with L<HTML::Mason|HTML::Mason> by subclassing
 L<HTML::Mason::Interp|HTML::Mason::Interp>. Inspired by the implementation of
-callbacks in Bricolage (L<http://bricolage.cc/>), it is however a completely
+callbacks in Bricolage (L<http://bricolagecms.org/>), it is however a completely
 new code base with a rather different approach.
 
 =head1 AUTHOR
@@ -908,7 +914,7 @@ David E. Wheeler <[email protected]>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2003-2011 by David E. Wheeler. Some Rights Reserved.
+Copyright 2003-2024 by David E. Wheeler. Some Rights Reserved.
 
 This library is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.

t/08apache.t

@@ -192,7 +192,7 @@ SKIP: {
                 ),
         "Get redirect response" );
     is( $res->code, 302, "Check redirect response code" );
-    is( $res->header('Location'), 'http://example.com/',
+    is( $res->header('Location'), 'https://example.com/',
         "Check redirect location" );
     is( $res->header('Age'), undef, "Check redirect Age header" );
 
@@ -205,7 +205,7 @@ SKIP: {
                 ),
         "Get redirect without abort response" );
     is( $res->code, 302, "Check redirect without abort response code" );
-    is( $res->header('Location'), 'http://example.com/',
+    is( $res->header('Location'), 'https://example.com/',
         "Check redirect without abort location" );
     is( $res->header('Age'), 42, "Check redirect without abort Age header" );
 }

t/09cgi.t

@@ -81,7 +81,7 @@ push @$cbs, { pkg_key => $key,
 
 ##############################################################################
 # Set up a redirection callback.
-my $url = 'http://example.com/';
+my $url = 'https://example.com/';
 sub redir {
     my $cb = shift;
     my $wait = $cb->value;

t/lib/TestCallbacks.pm

@@ -127,7 +127,7 @@ sub count {
     $params->{result}++;
 }
 
-my $url = 'http://example.com/';
+my $url = 'https://example.com/';
 sub redir {
     my $cb = shift;
     my $wait = $cb->value;

xt/pod-coverage.t

@@ -0,0 +1,6 @@
+use Test::More;
+eval "use Test::Pod::Coverage 0.08";
+plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@;
+all_pod_coverage_ok({
+    also_private => [ 'parser' ]
+});

xt/pod-spelling.t

@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use Test::More;
+eval "use Test::Spelling";
+plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
+
+add_stopwords(<DATA>);
+all_pod_files_spelling_ok();
+
+__DATA__
+Bricolage
+Widgitization
+preloaded
+preprocess

xt/pod.t

@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+use strict;
+use Test::More;
+eval "use Test::Pod 1.41";
+plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
+all_pod_files_ok();