6 use Carp qw(carp cluck croak confess);
12 $SIG{__WARN__} = sub {
14 if $_[0] =~ m!ok (\d+)$! };
18 $SIG{__WARN__} = sub {
20 if $_[0] =~ m!(\d+) at .+\b(?i:carp\.t) line \d+$! };
26 $SIG{__WARN__} = sub {
28 if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\tmain::sub_4\(\) called at .+\b(?i:carp\.t) line \d+$! };
38 if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+$! };
45 if $_[0] =~ m!^(\d+) at .+\b(?i:carp\.t) line \d+\n\teval \Q{...}\E called at .+\b(?i:carp\.t) line \d+\n\tmain::sub_6\(\) called at .+\b(?i:carp\.t) line \d+$! };