use Class::HPLOO base ;

class TestSuper extends TestSuper2 {

  sub TestSuper {
    $this->{2} = $this->SUPER ;
    $this->{n2} = $CLASS->SUPER ;
    return $this ;
  }

  sub test {
    return( 't1' , $this->SUPER) ;
  }

}


class TestSuper2 extends TestSuper3 {

  sub TestSuper2 {
    $this->{3} = $this->SUPER if $this ;
    $this->{n3} = $CLASS->SUPER ;
    return $this ;    
  }

  sub test {
    return( 't2' , $this->SUPER) ;
  }

}

class TestSuper3 {
  
  vars($id) ;
  
  sub TestSuper3 {
    $this->{id} = ++$id ;
    return $this ;
  }

  sub test {
    return( 't3' ) ;
  }

}