1use strict;
2use warnings;
3
4use Test::More tests => 1;
5
6# [perl #132910]
7
8package Foo;
9sub can { die }
10
11package main;
12
13use Carp;
14
15eval {
16    sub { confess-sins }->(bless[], 'Foo');
17};
18like $@, qr/^-sins at /;
19