http://www.perlmonks.org?node_id=379384


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

s/Client/Child/;

No AUTOLOAD

No declarations

print join(':', @Parent::ISA) # aka empty

Replies are listed 'Best First'.
Re^3: Failing inheritance or what can make a Child disinherited ?
by ysth (Canon) on Aug 02, 2004 at 19:13 UTC
    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)
        Got me; take your code and keep deleting stuff until it is small enough to see what's up or it starts working.