From: gfx <gfuji@cpan.org>
Date: Wed, 23 Sep 2009 05:54:17 +0000 (+0900)
Subject: Squirrel::Role also produces warnings
X-Git-Tag: 0.33~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=1a7f114754604769553edbd1bb99ea8ca02d8ffa

Squirrel::Role also produces warnings
---

diff --git a/t/202-squirrel-role.t b/t/202-squirrel-role.t
index dd6f7d9..22eb9bf 100644
--- a/t/202-squirrel-role.t
+++ b/t/202-squirrel-role.t
@@ -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;