1use strict; 2use warnings; 3 4use Test::More tests => 1; 5 6use Carp; 7 8# test that enabling overload without loading overload.pm does not trigger infinite recursion 9 10no strict 'refs'; 11my $p = "OverloadedInXS"; 12*{$p."::(("} = sub{}; 13*{$p.q!::(""!} = sub { Carp::cluck "<My Stringify>" }; 14sub { Carp::longmess("longmess:") }->(bless {}, $p); 15ok(1); 16 17 18