use CPAN module for older versions of Perl

mojolicious · Sep 21, 2014 · 6d534e6 · 6d534e6
1 parent f0ff29c
commit 6d534e6
Showing 1 changed file with 18 additions and 2 deletions.
diff --git a/lib/Mojo/Base.pm b/lib/Mojo/Base.pm
@@ -31,8 +31,8 @@ sub import {
   }
 
   # ISA
+  my $caller = caller;
   if ($flag) {
-    my $caller = caller;
     no strict 'refs';
     push @{"${caller}::ISA"}, $flag;
     *{"${caller}::has"} = sub { attr($caller, @_) };
@@ -42,11 +42,15 @@ sub import {
   $_->import for qw(strict warnings utf8);
   feature->import(':5.10');
 
-  # Signatures for Perl 5.20+
+  # Signatures
   if ($^V >= 5.020000) {
     feature->import('signatures');
     warnings->unimport('experimental::signatures');
   }
+  else {
+    require signatures;
+    signatures->setup_for($caller);
+  }
 }
 
 sub attr {
@@ -147,6 +151,10 @@ All three forms save a lot of typing.
     feature->import('signatures');
     warnings->unimport('experimental::signatures');
   }
+  else {
+    require signatures;
+    signatures->import;
+  }
   use IO::Handle ();
 
   # use Mojo::Base -base;
@@ -158,6 +166,10 @@ All three forms save a lot of typing.
     feature->import('signatures');
     warnings->unimport('experimental::signatures');
   }
+  else {
+    require signatures;
+    signatures->import;
+  }
   use IO::Handle ();
   use Mojo::Base;
   push @ISA, 'Mojo::Base';
@@ -172,6 +184,10 @@ All three forms save a lot of typing.
     feature->import('signatures');
     warnings->unimport('experimental::signatures');
   }
+  else {
+    require signatures;
+    signatures->import;
+  }
   use IO::Handle ();
   require SomeBaseClass;
   push @ISA, 'SomeBaseClass';