{   package Base;
    sub x { ... }
}

{   package Child;
    our @ISA = 'Base';
    sub y { shift->x }
}