From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 20 Jun 2009 20:51:02 +0000 (-0400)
Subject: eliminate pile of unnecessary insanitary long podified pointless poo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=commitdiff_plain;h=93dbae6050f325a6bacdb61fc297a409a93d79c6

eliminate pile of unnecessary insanitary long podified pointless poo
---

diff --git a/tracer.pl b/tracer.pl
index a58c25a..5c33ba2 100644
--- a/tracer.pl
+++ b/tracer.pl
@@ -184,25 +184,3 @@ foreach my $e (@expect) {
   is($map{$e},refaddr($value), "Result for ${e} ok");
 }
 
-=pod
-  
-use Data::Dumper; $Data::Dumper::Indent = 1;
-
-warn Dumper($tracer->_traced_refs);
-warn Dumper($tracer->_traced_names);
-
-=pod
-
-cmp_ok(
-  scalar(@expect), '==', scalar(@{$tracer->_traced_refs}),
-  'Right number of traced refs',
-);
-
-my $reflist = $tracer->_traced_refs;
-
-foreach my $i (0 .. $#expect) {
-  my $tail = "at list pos $i";
-  is($e[$i], $reflist[$i], "Correct ref $e[$i] at $tail");
-  my $data = getdata $reflist[$i], Trace::Constants::TRACE_WIZ;
-  is($data->[0], 'Blue', "tag ok at $tail");
-  cmp_ok($data->[1], '==', $i, "Index ok at $i");