Changeset 2261 for lang/perl/Acme-StrictAndWarnings

Timestamp:

12/02/07 00:55:53 (12 months ago)

Author:

charsbar

Message:

lang/perl/Acme-StrictAndWarnings?: improved unimport

Files:

• lang/perl/Acme-StrictAndWarnings/trunk/lib/Acme/StrictAndWarnings.pm (modified) (2 diffs)

lang/perl/Acme-StrictAndWarnings/trunk/lib/Acme/StrictAndWarnings.pm

@@ -12 +12 @@
 );
 
-sub import {
-    shift;
-
+sub _parse_args {
     my @strict;
     my @warnings;
@@ -24 +22 @@
         }
     }
+    return { strict => \@strict, warnings => \@warnings };
+}
 
-    strict->import(@strict);
-    warnings->import(@warnings);
+sub import {
+    shift;
+
+    my $args = _parse_args(@_);
+
+    strict->import(@{$args->{strict}});
+    warnings->import(@{$args->{warnings}});
 }
 
 sub unimport {
     shift;
-    strict->unimport;
-    warnings->unimport;
+    if (@_) {
+        my $args = _parse_args(@_);
+
+        if (@{$args->{strict}}) {
+            strict->unimport(@{$args->{strict}});
+        }
+        if (@{$args->{warnings}}) {
+            warnings->unimport(@{$args->{warnings}});
+        }
+    }
+    else {
+        strict->unimport;
+        warnings->unimport;
+    }
 }