Select Code to Download

{ package T1;              sub s1 { }                  }
{ package T2; use base T1;                             }
...
  T3->s1;
  warn("T2::s1 (post):\n"); Dump(*T2::s1);
}

>perl script.pl 2>&1 | findstr ": CODE CV"
T1::s1: CODE(0x183180c)
...
T2::s1 (post):
    CV = 0x183180c
    CVGEN = 0x91

{ package T1; sub s1 { }   }
{ package T2; use base T1; }
...
  T2->s1;
  warn("T2::s1 (post):\n"); Dump(*T2::s1);
}

>perl script.pl 2>&1 | findstr ": CODE CV"
T1::s1: CODE(0x183180c)
...
T2::s1 (post):
    CV = 0x183180c
    CVGEN = 0x8e