$ perl -MDevel::Peek -e'
    { package Base; sub f {} }
    { package Child; @ISA="Base"; }
    Dump *Base::f;
    Dump *Child::f;
    Child->f();
    Dump *Child::f;
'
SV = PVGV(0x816c6e8) at 0x814f6d8
  GP = 0x816c720
    CV = 0x814f714
SV = PVGV(0x816f938) at 0x814f810
  GP = 0x81709f8
    CV = 0x0             <-- &Child::f doesn't exist
    CVGEN = 0x0
SV = PVGV(0x816f938) at 0x814f810
  GP = 0x81709f8
    CV = 0x814f714       <-- &Child::f aliased to &Base::f
    CVGEN = 0x4d         <-- ...for method dispatch only