import warns when using unknown argument

Fixes #45 Enforce 'strict' syntax in import for enabling strict mode and warn when using an unknown argument to import.
geofffranks · Jun 12, 2020 · b20dc7c · b20dc7c
1 parent 3b217ba
commit b20dc7c
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/Test/MockModule.pm b/lib/Test/MockModule.pm
@@ -12,7 +12,14 @@ our $STRICT_MODE;
 sub import {
     my ( $class, @args ) = @_;
 
-    $STRICT_MODE = 1 if ( grep { $_ =~ m/strict/i } @args );
+    foreach my $arg (@args) {
+        if ( $arg eq 'strict' ) {
+            $STRICT_MODE = 1;
+        }
+        else {
+            warn "Test::MockModule unknown import option '$arg'";
+        }
+    }
 
     return;
 }