add strict and warnings

[p5sagit/Devel-Declare.git] / t / method-installer-runtime.t

diff --git a/t/method-installer-runtime.t b/t/method-installer-runtime.t
index e7c0683..62926b4 100644 (file)
--- a/t/method-installer-runtime.t
+++ b/t/method-installer-runtime.t
@@ -1,13 +1,8 @@
-
 use strict;
-
+use warnings;
 use Test::More tests => 2;
-
 use Devel::Declare::MethodInstaller::Simple;
 
-# suppress warnings
-sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
-
 BEGIN {
   Devel::Declare::MethodInstaller::Simple->install_methodhandler(
     name => 'method',
@@ -17,7 +12,9 @@ BEGIN {
 
 ok(!main->can('foo'), 'foo() not installed yet');
 
-method foo { }
+method foo {
+    $_[0]->method
+}
 
 ok(main->can('foo'), 'foo() installed at runtime');