2
method ACCEPTS($topic) {
7
sprintf '%s<0x%x>', self.WHAT, self.WHERE;
11
die "Cannot take numeric value for object of type $.WHAT.perl()" if $.defined;
12
# fail "Use of uninitialized value in numeric context";
13
warn "Use of uninitialized value in numeric context";