From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Sat, 14 Mar 2009 17:37:40 +0000 (-0500)
Subject: Gah, kill use_ok and prototypes.
X-Git-Tag: 0.78_01~50
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4717d7fa6f9e242d650a086f4ee6ab5ce5d56824;p=gitmo%2FClass-MOP.git

Gah, kill use_ok and prototypes.
---

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index 01ea3d2..b169d40 100644
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -1,24 +1,23 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 5;
 use Sub::Name 'subname';
 
 BEGIN {
     $^P &= ~0x200; # Don't munge anonymous sub names
 }
 
-BEGIN { use_ok("Class::MOP") }
+use Class::MOP;
 
 
-sub code_name_is ($$$;$) {
-    my ( $code, $stash, $name, $desc ) = @_;
-    $desc ||= "sub name is ${stash}::$name";
+sub code_name_is {
+    my ( $code, $stash, $name ) = @_;
 
     is_deeply(
         [ Class::MOP::get_code_info($code) ],
         [ $stash, $name ],
-        $desc,
+        "sub name is ${stash}::$name"
     );
 }