Remove code that has never been used in any test
Rafael Garcia-Suarez [Fri, 13 Feb 2009 22:20:11 +0000 (23:20 +0100)]
t/op/smartmatch.t

index 393bf4c..65bd079 100644 (file)
@@ -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>;