Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (15 sloc) 434 Bytes
augment class Any {
method ACCEPTS($topic) {
self === $topic
}
multi method Str() {
sprintf '%s<0x%x>', self.WHAT, self.WHERE;
}
method Numeric() {
die "Can't take numeric value for object of type $.WHAT.perl()" if $.defined;
# fail "Use of uninitialized value in numeric context";
note "Use of uninitialized value in numeric context";
0;
}
}
# vim: ft=perl6
Something went wrong with that request. Please try again.