From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 8 Oct 2010 18:55:36 +0000 (+0100)
Subject: squelch 'used only once' warnings
X-Git-Tag: v0.005~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=64a6f95061e15825b9df83f9ed24fd3309bf2687

squelch 'used only once' warnings
---

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index d52dc78..b039308 100644
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -72,7 +72,10 @@ sub BUILDALL {
   my @targ;
   while ($targ->isa(__PACKAGE__) and $targ ne __PACKAGE__) {
     push(@targ, "${targ}::BUILD")
-      if do { no strict 'refs'; defined *{"${targ}::BUILD"}{CODE} };
+      if do {
+           no strict 'refs'; no warnings 'once';
+           defined *{"${targ}::BUILD"}{CODE}
+         };
     my @targ_isa = do { no strict 'refs'; @{"${targ}::ISA"} };
     die "${targ} uses Multiple Inheritance: ISA is: ".join ', ', @targ_isa
       if @targ_isa > 1;