From: Rhesa Rozendaal Date: Sun, 26 Oct 2008 17:28:34 +0000 (+0000) Subject: prevent warnings in t/method-installer-runtime.t X-Git-Tag: 0.005000~40 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a7079617d08587bf5d80ec48daac4157f214405;p=p5sagit%2FDevel-Declare.git prevent warnings in t/method-installer-runtime.t --- diff --git a/t/method-installer-runtime.t b/t/method-installer-runtime.t index 59375e0..c16ea5d 100644 --- a/t/method-installer-runtime.t +++ b/t/method-installer-runtime.t @@ -3,8 +3,12 @@ use strict; use Test::More tests => 3; +use lib 'lib'; use Devel::Declare::MethodInstaller::Simple; +# suppress warnings +sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' } + BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler( name => 'method', @@ -19,10 +23,3 @@ method foo { 1 } is foo(), 1; -__END__ -1..2 -Use of uninitialized value $inject in concatenation (.) or string at /opt/perl/lib/site_perl/5.10.0/i686-linux/Devel/Declare/MethodInstaller/Simple.pm line 81. -ok 1 -ok 2 -ok 3 -# Looks like you planned 2 tests but ran 3.