eliminate pile of unnecessary insanitary long podified pointless poo

diff --git a/tracer.pl b/tracer.pl
index a58c25a..5c33ba2 100644 (file)
--- 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");