Squirrel::Role also produces warnings
gfx [Wed, 23 Sep 2009 05:54:17 +0000 (14:54 +0900)]
t/202-squirrel-role.t

index dd6f7d9..22eb9bf 100644 (file)
@@ -6,6 +6,10 @@ use warnings;
 use Test::More;
 use Scalar::Util 'blessed';
 
+BEGIN {
+    $SIG{__WARN__} = sub { warn $_[0] if $_[0] !~ /Squirrel is deprecated/ };
+}
+
 do {
     package Foo::Role;
     use Squirrel::Role;