From: Rhesa Rozendaal <rhesa@cpan.org>
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.