package Guff::Child1; use Guff; @ISA = qw/Guff/; our %dispatch = ( second=>'Guff::Child2', ); our $child = 'LIBRARY'; 1; package Guff::Child2; use Guff::Child3; @ISA = qw/Guff::Child1/; our %dispatch = ( third=>'Guff::Child3', ); our $child = 'REEL'; 1; package Guff::Child3; use Guff::Child2; @ISA = qw/Guff::Child2/; our %dispatch = ( ); our $child = undef; 1;