Changeset 2258 for lang/perl/Acme-StrictAndWarnings

Timestamp:

12/02/07 00:20:47 (12 months ago)

Author:

yappo

Message:

lang/perl/Acme-StrictAndWarnings?: もっと空気読んだ

Location:

lang/perl/Acme-StrictAndWarnings/trunk

Files:

• lib/Acme/StrictAndWarnings.pm (modified) (2 diffs)
• t/02-no.t (added)

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

@@ -5 +5 @@
 
 our $VERSION = '0.01';
-use Filter::Simple;
 
-FILTER {  $_ = 'use strict; use warnings;' . $_ ; }
+my %strict_bitmask = (
+refs => 0x00000002,
+subs => 0x00000200,
+vars => 0x00000400
+);
+
+sub import {
+    shift;
+
+    my @strict;
+    my @warnings;
+    for my $word (@_) {
+        if ($strict_bitmask{$word}) {
+            push @strict, $word;
+        } else {
+            push @warnings, $word;
+        }
+    }
+
+    strict->import(@strict);
+    warnings->import(@warnings);
+}
+
+sub unimport {
+    shift;
+    strict->unimport;
+    warnings->unimport;
+}
+
 
 1;
@@ -32 +59 @@
 Do not foget to use strict and warnings!
 
+=head1 METHODS
+
+=over 4
+
+=item import
+
+=item unimport
+
+=back
+
 =head1 AUTHOR
 
-Tomohiro Teranishi, C<< <tomohiro.teranishi at gmail.com> >>
+Tomohiro Teranishi, C<< <tomohiro.teranishi at gmail.com> >>,
+Yappo
 
 =head1 COPYRIGHT & LICENSE