package X;

sub x { 1 }

package X::Y;
use base 'X';

1;