in reply to Failing inheritance or what can make a Child disinherited ?

Is "Client" Parent, Child, or neither? Do you have any AUTOLOAD routines? Any declarations like "sub testSign;"? What's @Parent::ISA?
  • Comment on Re: Failing inheritance or what can make a Child disinherited ?

Replies are listed 'Best First'.
Re^2: Failing inheritance or what can make a Child disinherited ?
by guha (Priest) on Aug 02, 2004 at 19:01 UTC
    s/Client/Child/;

    No AUTOLOAD

    No declarations

    print join(':', @Parent::ISA) # aka empty
      With:
      $code = $obj->can("testSign");
      What does $code->($obj) do? What does use Devel::Peek; Dump $code; show? (Grasping at straws.)
        SV = RV(0x219e9e4) at 0x20cee00 REFCNT = 1 FLAGS = (PADBUSY,PADMY,ROK) RV = 0x20d5b9c SV = PVCV(0x20d508c) at 0x20d5b9c REFCNT = 3 FLAGS = () IV = 0 NV = 0 COMP_STASH = 0x183efdc "main" ROOT = 0x0 XSUB = 0x0 XSUBANY = 0 GVGV::GV = 0x20e9968 "Child" :: "testSign" FILE = "بن♫☻)" DEPTH = 0 FLAGS = 0x0 PADLIST = 0x20d5bc0 OUTSIDE = 0x20fdd38 (UNIQUE)