From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 13 Feb 2009 22:20:11 +0000 (+0100)
Subject: Remove code that has never been used in any test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=911225b602e6a79e5b60349f8bb0a58272efaba7;p=p5sagit%2Fp5-mst-13.2.git

Remove code that has never been used in any test
---

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 393bf4c..65bd079 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -33,17 +33,8 @@ tie my %tied_hash, 'Tie::StdHash';
     use overload '~~' => sub { my %hash = %{ $_[0] }; %hash ~~ $_[1] };
 }
 
-{
-    package Test::Object::OverloadCodeRef;
-    sub new { bless $_[1] }
-    use overload '~~' => sub { shift->($_[1]) };
-}
-
 our $ov_obj = Test::Object::CopyOverload->new;
 our $obj = Test::Object::NoOverload->new;
-our $false_obj = Test::Object::OverloadCodeRef->new(sub { 0 });
-our $true_obj = Test::Object::OverloadCodeRef->new(sub { 1 });
-
 
 # Load and run the tests
 my @tests = map [chomp and split /\t+/, $_, 3], grep !/^#/ && /\S/, <DATA>;