Merge pull request #95 from PerlToolsTeam/use-feature-compat-class

Use Feature::Compat::Class everywhere. Turn off experimental warnings
PerlToolsTeam · Sep 30, 2024 · 88a3900 · 88a3900
2 parents deb90e5 + c498ef0
commit 88a3900
Show file tree

Hide file tree

Showing 5 changed files with 15 additions and 8 deletions.
diff --git a/cpanfile b/cpanfile
@@ -1,5 +1,5 @@
-requires 'Object::Pad';
-requires 'Feature::Compat::Class';
+requires 'Object::Pad', '0.813';
+requires 'Feature::Compat::Class', '0.07';
 requires 'JSON';
 requires 'Path::Tiny', '0.125';
 requires 'Template';

diff --git a/lib/Dashboard/App.pm b/lib/Dashboard/App.pm
@@ -1,6 +1,8 @@
 use v5.36;
 use Feature::Compat::Class;
 
+no if $^V >= v5.38, warnings => 'experimental::class';
+
 class Dashboard::App {
   use strict;
   use warnings;
@@ -17,8 +19,7 @@ class Dashboard::App {
 
   field $mcpan = MetaCPAN::Client->new;
   field $json = JSON->new->pretty->canonical->utf8;
-  # Annoyingly, I can't use $json here
-  field $global_cfg = JSON->new->pretty->canonical->utf8->decode(path('dashboard.json')->slurp_utf8);
+  field $global_cfg = $json->decode(path('dashboard.json')->slurp_utf8);
   field $tt;
   field @authors;
   field @all_authors;

diff --git a/lib/Dashboard/Author.pm b/lib/Dashboard/Author.pm
@@ -1,5 +1,7 @@
 use 5.36.0;
-use Object::Pad;
+use Feature::Compat::Class;
+
+no if $^V >= v5.38, warnings => 'experimental::class';
 
 class Dashboard::Author {
   use Dashboard::Distribution;

diff --git a/lib/Dashboard/BadgeMaker.pm b/lib/Dashboard/BadgeMaker.pm
@@ -1,5 +1,7 @@
 use v5.26;
-use Object::Pad ':experimental(init_expr)';
+use Feature::Compat::Class;
+
+no if $^V >= v5.38, warnings => 'experimental::class';
 
 class Dashboard::BadgeMaker {
   use strict;

diff --git a/lib/Dashboard/Distribution.pm b/lib/Dashboard/Distribution.pm
@@ -1,5 +1,7 @@
 use 5.36.0;
-use Object::Pad;
+use Feature::Compat::Class;
+
+no if $^V >= v5.38, warnings => 'experimental::class';
 
 class Dashboard::Distribution {
 
@@ -155,4 +157,4 @@ class Dashboard::Distribution {
 
     return $repo_def_branch->{$dist_data->{repo_owner}}{$dist_data->{repo_name}};
   }
-}
+}