1package J;
2
3sub foo { 1 }
4
5sub can { die "J->can threw an exception" }
6
71;
8