package X;
$VERSION = 0.01;
sub x { 1 }

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

1;