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