Snippets

Brian Medley Possible Mojolicious signatures usage

Created by Brian Medley
diff --git a/lib/Mojo/Base.pm b/lib/Mojo/Base.pm
index 9cbf862..34de76f 100644
--- a/lib/Mojo/Base.pm
+++ b/lib/Mojo/Base.pm
@@ -69,7 +69,13 @@ sub import {
   if ($flag eq '-base') { $flag = $class }
 
   # Strict
-  elsif ($flag eq '-strict') { $flag = undef }
+  elsif ($flag eq '-strict') {
+      $flag = undef;
+
+      if (@_ && "signatures" eq $_[0]) {
+        feature->import('signatures');
+      }
+  }
 
   # Module
   elsif ((my $file = $flag) && !$flag->can('new')) {
diff --git a/lib/Mojolicious/Lite.pm b/lib/Mojolicious/Lite.pm
index 649c491..c07fc70 100644
--- a/lib/Mojolicious/Lite.pm
+++ b/lib/Mojolicious/Lite.pm
@@ -53,7 +53,7 @@ sub import {
   Mojo::UserAgent::Server->app($app) unless Mojo::UserAgent::Server->app;
 
   # Lite apps are strict!
-  Mojo::Base->import(-strict);
+  Mojo::Base->import(-strict, "signatures");
 }
 
 1;

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.