1# [perl #132910] 2# This mock-up breaks Test::More. Don’t use Test::More. 3 4sub UNIVERSAL::can { die; } 5 6# Carp depends on this to detect the override: 7BEGIN { $UNIVERSAL::can::VERSION = 0xbaff1ed_bee; } 8 9use Carp; 10 11eval { 12 sub { confess-sins }->(bless[], Foo); 13}; 14print "1..1\n"; 15if ($@ !~ qr/^-sins at /) { 16 print "not ok 1\n"; 17 print "# Expected -sins at blah blah blah...\n"; 18 print "# Instead, we got:\n"; 19 $@ =~ s/^/# /mg; 20 print $@; 21} 22else { 23 print "ok 1\n"; 24} 25